Anzeigen und Ausdrucken von PDFs
29.03.2013 13:22:07
PDFs
Ich habe ein kleines Problem mit anzeigen und ausdrucken von PDF Dateien, die im Excel für die Anwender sichtbar sein sollten.
Anzeige habe ich aus vorherigen Programmen übernommen indem ich ein Steuerelement "Webbrowser" eingefügt habe.
Mein Anzeigecode heißt:
Private Sub CommandButton1_Click()
Dim path As String
path = "R:\test\Q.pdf"
ActiveSheet.WebBrowser1.Navigate path
End Sub
Damit kann ich das PDF "Q.pdf" in einem Fenster in Excel anzeigen.
Mein Problem ist nun eigentlich das Ausdrucken über einen "Commandbutton".
Das funktioniert nicht so richtig (Ausdruck ist leer bzw. es gibt debug fehler)
Da die Anwender mehrere Dateien ausdrucken müssten, haben wir einen Commandbutton eingefügt mit dem alle Excelseiten ausgedruckt werden. Ziel ist es, das PDF das im Excel angezeigt wird auch mit diesem Button gleichzeitig mit dem Rest auszudrucken.
Bitte um Tipps (Anzeige kann auch geändert werden. Bin da nicht fixiert)
Danke und Gruß
Johannes
Anzeige