Print a PDF file using VBA

Hi all

I'm using Excel 2010 and have Adobe Reader 11.

I'm trying to make a code in VBA that can print a specific PDF file. It's OK if the file opens first but it not necessary.

The file name change from time to time but it’s written in a specific cell in Excel. Let us say that it’s A1 in sheet1. The path is the same every time so that can be written directly in the code.

I have found this code on WWW but it doesn’t work for me.

Option Explicit
Public 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
 
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
 
strDir = "J:\KAL\Machines\Extruder I\Køredata\Tegninger\"
strFile = "370_Rev.pdf"
 
printThis = PrintThisDoc(0, strDir & strFile)
End Sub

I do hope that someone can help me.

Thank you in advance

Re: Print a PDF file using VBA

Hi Kenneth

Thank you for the answer. Bur don't understand what you mean about the pass command line parameters. Where shall I put in the letters you write?

Where in the code is the mistake that do that the code don't work??

Thank you in advance
/Mads

Re: Print a PDF file using VBA

Hi MrRedli and Kenneth

Both of them works perfectly. Thank you to you both.

Now I can see that both of the codes print the Pdf file in A4. Is it possible to have the code to prnt A3 as the PDF file are savede in??

Thank you in advance.

Re: Print a PDF file using VBA

Hi Kenneth

I though so that Excel can't control Adope's printing menu. I have made the changes in Adope and all works perfect now. Thanks for your time and your help.