Excel VBA to open a PDF and print as PDF

[mrlionsss]

I'm using this code that I found in another thread. It opens a pdf file in Adobe Reader and prints it to a PDF. It works great, however, when I run the code, it triggers a dialog window in Adobe Acrobat, where you are suppose to enter the file name and hit save. I would need it to have the file name already set when printing and skip the part with the dialog window, in another way, is it possible, that all of this happens in the background?

Unfortunately, my vba knowledge doesn't go that far, so any help is appreciated!

Option Explicit
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 PrintThisDoc(formname As Long, FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(formname, "Print", FileName, 0&, 0&, 3)
End Function
 
Sub testPrint()
Dim printThis
Dim strDir As String
Dim strFile As String
Dim prtFile As String
strDir = "C:\Users\admin\Desktop\test"
strFile = "filetoprint.pdf"
 
printThis = PrintThisDoc(0, strDir & "\" & strFile)

End Sub

 

[Adul_C]

Hi mrlionsss
Answer found by oswaler

How to supress save as dialog when printing to Adobe pdf-VBForums

I've spent the last couple days looking through this and other forums and I was never able to find a way to supress the save as dialog you get if you try to do a simple print to the adobe pdf printer from VBA code. I finally found the answer for anyone interested. Go to the list of printers...

www.vbforums.com

Go to the list of printers in the Windows Settings list and right click the Adobe PDF icon and click on Properties. On the Advanced tab click on the Printing Defaults button. There is a setting there for Adobe pdf output folder. By default this is set to prompt the user. If you click the browse button you can set a folder for it to save to. There is also a checkbox you can use to turn off the autoloading of the document after it is created.

 

[Adul_C]

If no browse button to add folder, please click printer property. Go to tab "Ports" and add port instead. After done, new folder will be available to set as output folder.