VBA Druckersuche
19.12.2017 15:02:48
Erwin
mit diesem Code versuche ich eine .pdf Datei zu drucken, was bei mir auch läuft.
Sub PDF_Druck()
Application.ScreenUpdating = False
On Error Resume Next
Dim Drucker As String
Drucker = ActivePrinter 'alten Drucker merken
Sheets("Partner").Select
Application.ActivePrinter = "eDocPrintPro PDF auf Ne03:" '
Jetzt musste ich feststellen, dass edocprintpro teils unterschiedlich geschrieben wird, weil verschiedene Versionen im Einsatz sind und nicht immer auf Ne03 liegt.
Meine Idee wäre nun, zuerst den Drucker zu suchen (z. B. ...like Edoc* oder like edoc*) und den vorhandenen dann einzubinden.
Doch hierfür fehlen mir die Programmierkenntnisse.
Wer kann helfen?
Grüße - Erwin