Use VBA to print a PDF to a Location

atr140

Board Regular
Joined
Nov 27, 2012
Messages
68
I am trying to print a PDF (saved in a known path) to a new location (another known path). The reason I want to "re-print" the PDF file is to lock any comments that are in the original PDF file. I found the following solution to print a PDF file using the default printer; however it prompts the user for a Save Location. I would prefer a solution without any prompts. This is my first attempt at using the Windows SDK function so there may a solution in there that I am missing. Any help would be appreciated.

2010 Excel (64-bit)


Code:
Public Declare PtrSafe 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
 
Public Function PrintPDF(xlHwnd As Long, FileName As String) As Boolean
Dim X As Long

On Error Resume Next
X = ShellExecute(xlHwnd, "Print", FileName, 0&, 0&, 3)
If Err.Number > 0 Then
    MsgBox Err.Number & ": " & Err.Description
    PrintPDF = False
Else
    PrintPDF = True
End If
On Error GoTo 0
End Function
 
Sub PrintSpecificPDF()
'opens the specified pdf and prints it using the default printer
'note that it uses the default PDF program and leaves it open
Dim strPth As String, strFile As String
strPth = "K:\Personal Documents\Manuals\"
strFile = "elliptical assembly.pdf"
 
If Not PrintPDF(0, strPth & strFile) Then
    MsgBox "Printing failed"
End If
End Sub
 

Some videos you may like

Excel Facts

Remove leading & trailing spaces
Save as CSV to remove all leading and trailing spaces. It is faster than using TRIM().

Watch MrExcel Video

Forum statistics

Threads
1,108,709
Messages
5,524,433
Members
409,577
Latest member
Dwg

This Week's Hot Topics

Top