So ändern Sie den Standarddrucker mit VBA in Microsoft Excel 2016

Anonim

Hi!

Steht Ihr Standarddrucker in der hintersten Ecke des Büros?

Möchten Sie Ihr Blatt aus dem Drucker an Ihrer Seite drucken?

Sie können es im Druckdialog ändern, aber Sie sind auch zu faul?

Nun, die meisten erfinderischen Leute sind faul, wie du und ich.

Mach dir keine Sorge. Ich habe dich. Machen wir es einmal mit VBA …
Unten ist der Code, der Ihren Standarddrucker auf den Drucker Ihrer Wahl ändert und den ursprünglichen Drucker auf den Standarddrucker zurücksetzt.

Sub Change_Default_Printer()
Set mynetwork = CreateObject("WScript.network")
mynetwork.setdefaultprinter "Ihr Druckername" 'schreiben Ihr Druckername hier
ActiveSheet.PrintOut
mynetwork.setdefaultprinter „original_Default_Printer“ ‘Setzen Sie Ihren ursprünglichen Drucker auf die Standardeinstellungen zurück“
End Sub

Lassen Sie uns jede Zeile knacken.

  1. Set mynetwork = CreateObject("WScript.network") : Hier haben wir ein Objekt erstellt “Mein Netzwerk" von WScript.Netzwerk mit VBAs CreateObject() Funktion. Intern kehrt es zurück“IWshNetwork2” Art des Objekts.
    WshNetwork2 ermöglicht den Zugriff auf das Computernetzwerk. Wir können mit allen an den Computer angeschlossenen Geräten herumspielen. Vorerst werden wir Drucker verwenden.
  2. mynetwork.setdefaultprinter "Ihr Druckername": In dieser Zeile haben wir früher Excel vba Drucker auswählen. Standard Drucker Eigentum von WshNetwork2Objekt wird verwendet, um den Standarddrucker Ihrer Wahl auszuwählen. Schreiben Sie den Namen Ihres Druckers in doppelte Anführungszeichen („ “).
  3. ActiveSheet.PrintOut: Dieser Befehl druckt Ihr Dokument vom geänderten Drucker aus. Ich habe das aktive Blatt hier gedruckt. Sie können einen beliebigen Blattnamen angeben, um es sofort zu drucken.
  4. mynetwork.setdefaultprinter „original_Default_Printer“: Diese Zeile setzt Ihren ursprünglichen Drucker auf die Standardeinstellungen zurück. Dies ist optional. Wenn Sie nichts ändern möchten, überspringen Sie diese Zeile. Oder Sie können es auf einen anderen Drucker einstellen, bevor Ihr Code endet.

Also wie war es? Hat es bei dir funktioniert? War es schwierig? Lass es mich in den Kommentaren wissen. Bleiben Sie dran für innovativere und einfachere Lektionen. Wiedersehen.

Populäre Artikel:

50 Excel-Shortcut zur Steigerung Ihrer Produktivität

So verwenden Sie die SVERWEIS-Funktion in Excel

So verwenden Sie die ZÄHLENWENN-Funktion in Excel 2016

So verwenden Sie die SUMIF-Funktion in Excel