display pdf in asp net c# : Reverse page order pdf Library SDK class asp.net .net web page ajax 1200%20macro_examples50-part170

501
32.5 Inserting a Hyperlink to a Chart Sheet
on the sheet containing the hyperlinks, put the following in the
sheet module:
Private Sub
Worksheet_SelectionChange(
ByVal
Target
As Excel.Range
)
ChangeToChartSheet
End Sub
In a regular module, put the following:
Sub
ChangeToChartSheet()
Dim
cSheet
If Not IsEmpty(ActiveCell) Then
With ActiveCell
If .Font.Underline = xlUnderlineStyleSingle Then
If .Font.ColorIndex
= 5
Then
On Error Resume Next
Set
cSheet =
Sheets
(
ActiveCell
.
Value
)
On Error GoTo
0
If IsEmpty
(cSheet)
Then
MsgBox "Sheet " &
ActiveCell.Value
& _
" not found"
Exit Sub
End If
If TypeName
(cSheet) = "Chart"
Then
If
cSheet.
Visible
= xlSheetVisible
Then
cSheet.
Select
Else
MsgBox
"Chart sheet " & _
ActiveCell.Value
& " is hidden"
End If
End If
End If
End If
End With
End If
End Sub
The above code will change to a chart sheet if the cell is formated to look
like a hyperlink.
32.6 How To Invoke A Hyperlink
Reverse page order pdf - rotate PDF page permanently in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Empower Users to Change the Rotation Angle of PDF File Page Using C#
rotate pages in pdf; pdf rotate single page
Reverse page order pdf - VB.NET PDF Page Rotate Library: rotate PDF page permanently in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
PDF Document Page Rotation in Visual Basic .NET Class Application
how to reverse pages in pdf; rotate single page in pdf reader
502
If just one hyperlink on the worksheet, then use
WorkSheets(1).Hyperlinks(1).Follow
If the hyperlink is attached to a specific cell, you can use...
WorkSheets(1).Range("B4").Hyperlinks(1).Follow
If the hyperlink is attached to a shape, use...
WorkSheets(1).Shapes("AutoShape 1").HyperLink _
.Follow NewWindow:=True
32.7 Getting A Cell's Hyperlink
The following code returns the hyperlink of  the active cell:
On Error Resume Next
HyperlinkAddress =ActiveCell.Hyperlinks(1).Address
If hyperlinkaddress = 0 then hyperlinkaddress = ""
32.8 Getting Stock Prices From A Web HTTP Query
The following code pulls the Dupont company stock price from the Internet and pastes into a
new page:
Sub Get_Stock_Info()
Dim sPage As String
Dim destSheet As Worksheet
sPage = _
"URL; http://finance.yahoo.com/q?s=dd
Set destSheet = Sheets.Add
With destSheet.QueryTables.Add(Connection:=sPage, _
Destination:=destSheet.Range("A1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub
Andrew Baker has avery detailed example
of using VBA to query a web site.  This example can
be found at:
C# PDF Page Move Library: re-order PDF pages in C#.net, ASP.NET
page. Enable C# users to move, sort and reorder all PDF page in preview. Support to reverse page order in PDF document. RasterEdge
save pdf after rotating pages; saving rotated pdf pages
VB.NET PDF Page Move Library: re-order PDF pages in vb.net, ASP.
Support to reverse page order in adobe PDF document in both .NET WinForms application and ASP.NET webpage. Enable move, sort and reorder PDF page in preview.
pdf rotate pages and save; reverse page order pdf
503
33. WORKING WITH OTHER
APPLICATIONS
33.1 Using Excel To Send E
-
Mails
The following code uses Excel and Outlook to send e
-
mails.  The address is stored in one cell
and the body of the message in another cell.  You can alter the following macro so that you can
include a file attachment too.  Furthermore, you can alter the macro so that the e
-
mail is
automatically sent (without a preview).
'Use early binding to create a new Outlook Application Object
Public olApp As New Outlook.Application
Public nsMAPI As Outlook.Namespace
Public exp As Outlook.Explorer
Sub NewMailMessage()
Dim itmMail As Outlook.MailItem
Dim x As Variant
Dim y As Variant
'Return a reference to the MAPI layer
Set nsMAPI = olApp.GetNamespace("MAPI")
'Set the current cell selection equal to the e
-
mail address
x = ActiveCell.Value
'Set the cell underwork!b8 equal to the message body
Application.ScreenUpdating = False
WorkSheets("underwork").Activate
y = Range("b8").Value
'Create a New mail message item
Set itmMail = olApp.CreateItem(olMailItem)
With itmMail
'Add the subject of the mail message
.Subject = "Research Database"
'Create some body text
.Body = y & vbCrLf
C# Word: How to Use C# Code to Print Word Document for .NET
document pages in original or reverse order within entire C# Class Code to Print Certain Page(s) of powerful & profession imaging controls, PDF document, image
how to rotate pdf pages and save permanently; rotate pdf page permanently
504
'Add a recipient and test to make sure that the
'address is valid using the Resolve method
With .Recipients.Add(x)
.Type = olTo
If Not .Resolve Then
MsgBox "Unable to resolve address.", vbInformation
Exit Sub
End If
End With
'Remove quotes to attach a file as a link with an icon
'With .Attachments.Add _
'("D:\ofc 
-
06\acme.mdb", olByReference)
'DisplayName = "Training info"
'End With
'Display the item
.Display
'Send the mail message
.Send
End With
'Release memory
Set itmMail = Nothing
Set nsMAPI = Nothing
Set olApp = Nothing
End Sub
33.2 Sending E
-
Mail From Outlook Express
If you use Outlook Express, you can use SendMail to mail the active workbook.  You should
save the workbook before mailing, as the last saved copy is what is mailed.  With SendMail, you
can only send the active workbook, and specify a subject and recipients (separated by commas).
You can not enter any text in the body of the e
-
mail.
Sub MailActiveWorkbook()
ActiveWorkbook.SendMail _
Reipients:="john@yahoo.com", _
Subject:="Test Mail"
End Sub
505
33.3 Sending E
-
Mail With Outlook
This example shows how to send just a mail message, no text via Microsoft Outlook. You need a
reference to the Outlook object library via VB editor, Tools, References.
Sub Send_Outlook_E_Mail()
Dim oOutlook As New Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim OMailitem As Outlook.MailItem
Set oNameSpace = oOutlook.GetNamespace("MAPI")
oNameSpace.Logon '
Set OMailitem = oOutlook.CreateItem(olMailItem)
With OMailitem
.Subject = "Subject Text"
.Recipients.Add "mailaddress"
.Body = "Your body text here"
.Body = "more text here"
.Body = "more text here"
.Send
End With
oNameSpace.Logoff
Set oNameSpace = Nothing
End Sub
To send the active workbook :
Sub SendActiveBook()
ActiveWorkbook.HasRoutingSlip = False
With ActiveWorkbook.RoutingSlip
.Recipients = "somebody@domain.com"
.Subject = "Distribution: test.xls"
.Message = "Hello"
.Delivery = xlAllAtOnce
End With
ActiveWorkbook.Route
End Sub
33.4 Sending E
-
Mail From Excel
Intuitive Data Solutions has an ActiveX Code Component that lets you incorporate universal e
-
mail send and receive capabilities in your macros.  It supports Outlook, Lotus Notes, Exchange,
and any other mail systems based on MAPI, VIM, SMTP/POP3 (Internet mail), MHS (Novell),
Banyan VINES, or Active Messaging.  For example, this is all the Excel VBA code you would
need to send a message with a file attachment:
Dim idsMail As Object
Set idsMail = CreateObject("IDSMailInterface.Server")
idsMail.ObjectKey = "ABC123"
idsMail.NewMessage
idsMail.AddRecipientTo "Jim Smith"
idsMail.AddRecipientCc "Mary Brown, Doug Williams"
idsMail.Subject = "Meeting Agenda"
506
idsMail.Message = "Here is the agenda for the weekly meeting."
idsMail.AddAttachment "C:\MEETINGS\AGENDA.DOC"
idsMail.Send
For more info on IDSMail, go to
http://www.intuitive
-
data.com
33.5 How To Send An E
-
Mail On A SMTP Mail System
If you have Microsoft Messaging installed (which can be configured to work with SMTP
servers), you can use code similar to the following to mail the active workbook to someone.
ActiveWorkbook.SendMail "user@domain.com", _
"Message Subject", Null
Check theSendMail function in the online help for details by placing the cursor onSendMail
and pressingF1.
You do not need to have a Microsoft server (Mail, Exchange) for this to work; as it uses MAPI
settings to communicate with whatever server you configure.
33.6 Using Outlook To Send Mail
The following example, posted by Bill Manville, shows how to write a macro that sends an
Outlook mail message.  You must first create a Tools / Reference from a module in your
workbook to the Outlook 9x Object library.
Sub TellTheBossItsDone()
Dim oOutl As New Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
Set oNS = oOutl.GetNameSpace("MAPI")
oNS.Logon
' user will be prompted for name and password if parameters
not given here
Set oMail = oOutl.CreateItem(olMailItem)
With oMail
.Subject = "Monthly update completed"
.Recipients.Add "TheBoss"
.Body = "The figures for last month are now available"
.Send
End With
oNS.Logoff
Set oNS = Nothing
End Sub
33.7 E
-
Mailing A File With Outlook
507
Assuming:
1
-
that the name of your workbook will be MyFile.xls
2
-
you use Outlook for your email client
To do the e
-
mail part use this:
'Use early binding to create a new Outlook Application Object
Public olApp As New Outlook.Application
Public nsMAPI As Outlook.Namespace
Public exp As Outlook.Explorer
Sub NewMailMessage()
Dim itmMail As Outlook.MailItem
Dim x As Variant
Dim y As Variant
'Return a reference to the MAPI layer
Set nsMAPI = olApp.GetNamespace("MAPI")
'Create a New mail message item
Set itmMail = olApp.CreateItem(olMailItem)
With itmMail
'Add the subject of the mail message
.Subject = "Type message subject here"
'Create some body text
.Body = "type message body here" & vbCrLf
'Add a recipient and test to make sure that the
'address is valid using the Resolve method
With .Recipients.Add("type email@address.here")
.Type = olTo
If Not .Resolve Then
MsgBox "Unable To resolve address."
Exit Sub
End If
End With
'Attach a file as a link with an icon
508
With .Attachments.Add _
("C:\My Documents\jimmp.xls", olByReference) _
.DisplayName = "MyFile.xls"
End With
'Display the item
.Display
'Send the mail message
'.Send
End With
'Release memory
Set itmMail = Nothing
Set nsMAPI = Nothing
Set olApp = Nothing
End Sub
33.8 Launching Another Windows Program Or
Application
The following example shows how to launch another Windows program or application.  This
example launches the Windows calculator.  Please note it does not check to see if it already
running.  If it is, you will get another version running.
Sub LaunchExample()
Dim RetVal As Long
'Launch calculator and give it the focus
'the shell command returns a value, thus the need to capture
'it in a variable
RetVal = Shell("C:\windows\calc.exe", vbNormalFocus)
End Sub
33.9 Running A Shortcut From A Macro
Use the DOS Start command to run a shortcut from Excel VBA.  For example:
Shell("start c:\windows\desktop\myshortcut.lnk")
33.10 Open Window Explorer
509
Sub OpenExplorer()
x = Shell("explorer", 1)
End Sub
33.11 Getting Excel To Pause While A Shell Process Is
Running
Here are some sources of information on how to do this.
http://support.microsoft.com/support/kb/articles/q214/2/48.asp
XL2000: How to Force Macro Code to Wait for Outside Procedure
http://support.microsoft.com/support/kb/articles/Q129/7/96.ASP
HOWTO: 32
-
Bit App Can Determine When a Shelled Process Ends
http://support.microsoft.com/support/kb/articles/q147/3/92.asp
XL: How to Force Macro Code to Wait for Outside Procedure
The API. Listed below is aSubthat will stall Excel INDEFINITELY until the Program Shelled
has terminated.
Private Const INFINITE = &HFFFFFFFF
'Allows an Infinite timeout
Private Const SYNCHRONIZE = &H100000
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As LongAs Long
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function IsWindow& Lib "User32" _
(ByVal hwnd As Long)
Private Declare Function WaitForSingleObject _
Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Sub HardShell(FilePathName As String)
Dim ProcessId As Long
ProcessId = Shell(FilePathName, vbMaximizedFocus)
Call PauseUntilTerminate(ProcessId)
End Sub
Private Sub PauseUntilTerminate(ProcessId As Long)
Dim phnd&
phnd = OpenProcess(SYNCHRONIZE, 0, ProcessId)
If phnd <  0 Then
510
Application.StatusBar = "Waiting for termination"
Call WaitForSingleObject(phnd, INFINITE)
Call CloseHandle(phnd)
End If
Application.StatusBar = False
End Sub
The following is another way to pause your code until a shelled application completes it
processing.  In this case Notepad.  If you shell to another application, your Excel macros will
normally continue to run.
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As LongByVal dwMilliseconds As LongAs Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As LongAs Long
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As LongByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Const INFINITE = 
-
1&
Private Const SYNCHRONIZE = &H100000
'This code goes in the command button that is clicked by the user to
'start the shell process
Sub Shell_And_Wait()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell("notepad.exe", vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
MsgBox "Process Finished!"
End Sub
33.12 Activating A Running Application
TheAppActivate statement will activate an active application if the full string of the title in the
application window is used as its argument.
Sub ActivateSomething()
Dim A
On Error GoTo AppActivateHandler
AppActivate "Calculator"
Exit Sub
AppActivateHandler:
A = Shell("Calc.Exe", 1)
End Sub
33.13 Determining If Another Application Is Running
Documents you may be interested
Documents you may be interested