在Excel宏中使用VBA打印和現有的PDF

Question

我想做一個函數檢查.pdf文件是否存在。如果存在，我想打印文件。

Function PrintPDF(PartNum As String) 
    Dim DirFile As String 
    DirFile = "\\SERVER5\hpfiles\Company\Drawings\PDF-SL8\" & PartNum & ".pdf" 
     If Dir(DirFile) = "" Then 
    Exit Function 
    Else 
    DirFile.PrintOut 

    End If 
    End Function 

我得到一個說錯誤無效的編譯錯誤。我認爲它是因爲DirFile是一個字符串。

如何使用此字符串作爲打印目標文件？

Answer 1

正確，您無法打印字符串。一種方法是使用shell命令和打印這樣的文件：

Option Explicit 

Declare Function apiShellExecute 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 

Function PrintPDF(PartNum As String) 
    Dim DirFile As String 
    DirFile = "\\SERVER5\hpfiles\Company\Drawings\PDF-SL8\" & PartNum & ".pdf" 

    If Dir(DirFile) = "" Then Exit Function 

    PrintFile (DirFile) 
End Function 

從this post