Print from Adobe Acrobat using OLE

Mon, 10 Sep 2007 05:52:00 GMT

Just to have it somewhere... The code is from Visual Basic 6 with reference to the Acrobat TLD.

Private Sub Command1_Click()
    Dim doc As New AcroAVDoc
    If doc.Open("c:\test.pdf", "PDF Print") Then
        Dim numPages As Long
        numPages = doc.GetPDDoc().GetNumPages
        Debug.Print "Document has " & numPages & " page(s)..."
        If doc.PrintPagesSilent(0, numPages - 1, 0, True, True) Then
            Debug.Print "Printed document..."
        End If
    Else
        MsgBox "failed to open document"
    End If
    
    If Not (doc Is Nothing) Then
        Call doc.Close(True)
    End If
End Sub

lekkimworld.comole

Print from Adobe Acrobat using OLE