问与答71： 如何使用VBA打印PDF文件？

DeclareFunction FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFileAs String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
 
Sub Test_PrintPDF()
  Dim strFileName As String
  strFileName = "D:\test.pdf"
  PrintPDf strFileName
End Sub
 
Sub PrintPDf(fnAs String)
  Dim pdfEXE As String
  Dim q As String
 
  pdfEXE = ExePath(fn)
  If pdfEXE = "" Then
    MsgBox "没有找到pdf相关的EXE程序.",vbCritical, "Macro Ending"
    Exit Sub
  End If
 
  q = """"
 
  Shell q & pdfEXE & q & " /s/o /h /t " & q & fn & q, vbHide
End Sub
 
Function ExePath(lpFile As String) As String
   Dim lpDirectory As String
   Dim strExePath As String
   Dim lrc As Long
   lpDirectory = "\"
   strExePath = Space(255)
   lrc = FindExecutable(lpFile, lpDirectory,strExePath)
   strExePath = Left$(strExePath,InStr(strExePath, Chr$(0)) - 1)
   ExePath = strExePath
End Function

Declare FunctionapiShellExecute 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 Sub PrintFile(ByVal strPathAndFilename As String)
    Call apiShellExecute(Application.hwnd,"print", strPathAndFilename, vbNullString, vbNullString, 0)
End Sub
 
Sub test()
    PrintFile ("D:\test.pdf")
End Sub