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.
Code
- 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