Hi guys,
I do hope you guys are able to help in as I would like to set printing layout for pdf before printing them.
I would like my setting to print all, multiple with 2 sheets per page,page order horizontal, print on both side with flipping on long edge and lastly orientation is landscape.
My code for opening and print pdf is shown below:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Button1_Click()
Dim PDF As String
PDF = Location of my PDF files
Call ShellExecute(0&, vbNullString, PDF, vbNullString, vbNullString, vbNormalFocus)
PrintPDF = ShellExecute(0&, "print", PDF, vbNullString, vbNullString, vbNormalFocus)
End Sub
Many thanks
I do hope you guys are able to help in as I would like to set printing layout for pdf before printing them.
I would like my setting to print all, multiple with 2 sheets per page,page order horizontal, print on both side with flipping on long edge and lastly orientation is landscape.
My code for opening and print pdf is shown below:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Button1_Click()
Dim PDF As String
PDF = Location of my PDF files
Call ShellExecute(0&, vbNullString, PDF, vbNullString, vbNullString, vbNormalFocus)
PrintPDF = ShellExecute(0&, "print", PDF, vbNullString, vbNullString, vbNormalFocus)
End Sub
Many thanks