Zum Inhalt springen
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

Deine Meinung

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich an , um mit Deinem Konto zu schreiben.

Gast
Auf dieses Thema antworten...

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

  Nur 75 Emojis sind erlaubt.

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

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   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, 2020 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