VBA userform als PDF drucken und drucker wieder auf vorherigen Standarddrucker zurückstellen

[Schirin]

Hallo zusammen, 

Private Sub CommandButton1_Click()

Dim standard As String
standard = ActivePrinter

On Error GoTo Ende
CreateObject("WScript.Network").SetDefaultPrinter "Microsoft print to PDF"
OnBoardingU.PrintForm

ActivePrinter = standard

Ende:

ActivePrinter = standard
CreateObject("WScript.Network").SetDefaultPrinter Standard

End Sub 

 

hier ist der Code um den es sich handelt. Damit drucke ich eine Userform als PDF aus (funktioniert auch super) aber später ist der PDF Drucker als Standarddrucker gespeichert. 

mit dem Befehl ActivePrinter = Standard wird der aktive Drucker auch wieder richtig zurück gesetzt.

Nur der Standarddrucker nicht; es zieht sich nämlich daraus den Port des Druckers mit.

Das kommt als Fehlermeldung; das ist zwar auch der richtige Drucker (P08065171) aber hald mit dem auf NE01 findet er natürlich nichts.

 

Ich kann den Drucker nicht angeben, da es universell einsetzbar sein soll. 

 

Vielen Dank für eure Hilfe