Jump to content
Melde dich an, um diesem Inhalt zu folgen  

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

Empfohlene Beiträge

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.

image.png.083934451e8891793249270ba248ab81.png

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

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

Nimm an der Diskussion teil

Du kannst jetzt hier posten und Dich später registrieren. Wenn Du bereits über eine Konto verfügst, melde Dich jetzt an, um mit Deinem Konto zu posten.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Clear editor

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Melde dich an, um diesem Inhalt zu folgen  

Fachinformatiker.de, 2019 SE Internet Services

fidelogo_small.png

if_icon-6-mail-envelope-closed_314900.pnSchicken Sie uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App


Get it on Google Play

Kontakt

Hier werben?
Oder senden Sie eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...

Wichtige Information

Fachinformatiker.de verwendet Cookies. Mehr dazu in unserer Datenschutzerklärung