Private Sub PrintAdobePDF(strFilePath As String)
On Error Resume Next
Dim App As Object
Dim AVDocument As Object
Dim PDDocument As Object
Dim nPages As Object
Set App = CreateObject("AcroExch.App")
Set AVDocument = CreateObject("AcroExch.AVDoc")
If AVDocument.Open(strFilePath, "") = True Then
Set PDDocument = AVDocument.GetPDDoc()
nPages = PDDocument.GetNumPages()
Call AVDocument.PrintPagesSilent(0, nPages - 1, 0, True, True)
Call AVDocument.Close(True)
Set AVDocument = Nothing
Set PDDocument = Nothing
End If
Call App.Exit
Set App = Nothing
End Sub
|