Private Sub PrintPDF()
    Dim objIE As New InternetExplorer
 
 
    objIE.Navigate2 "file:// C:\Daten\Test.pdf"
    While objIE.Busy: DoEvents: Wend
 
    'Print Out PDF
    objIE.Document.printAll 'druckt alles oder
    pbjIE.Document.printPages nvon, nbis
 
    objIE.Quit
 
    Set objIJE = Nothing
 
End Sub