Hur man ändrar standardskrivaren med VBA i Microsoft Excel 2016

Hallå där!

Ligger din standardskrivare längst ut på kontoret?

Vill du skriva ut ditt ark från skrivaren vid din sida?

Du kan ändra det i avsnittet för utskriftsdialog men du är för lat för att göra det också?

De flesta uppfinningsrika människor är lata, som du och jag.

Oroa dig inte. Jag har dig. Låt oss göra det med VBA en gång för alla …
Nedan är koden som ändrar din standardskrivare till ditt val av skrivare och återställer den ursprungliga skrivaren till standardskrivaren.

Sub Change_Default_Printer ()
Ställ in mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Ditt skrivarnamn" 'skriva dina skrivares namn här
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “Original_Default_Printer” ‘sätt tillbaka din ursprungliga skrivare till standard ”
Avsluta Sub

Låt oss slå ner varje rad.

Ställ in mynetwork = CreateObject ("WScript.network"): Här har vi skapat ett objekt "mitt nätverk”Av WScript.Network använder VBA CreateObject () fungera. Internt återkommer det "IWshNetwork2 ” typ av objekt.
WshNetwork2 ger åtkomst till nätverket av datorer. Vi kan leka med alla enheter som är anslutna till datorn. För tillfället kommer vi att använda skrivare.
mynetwork.setdefaultprinter "Ditt skrivarnamn": I den här raden brukade vi excel vba select skrivare. standardskrivare egendom av WshNetwork2objekt används för att välja den standardskrivare som du väljer. Skriv skrivarens namn mellan dubbla citattecken (””).
ActiveSheet.PrintOut: Detta kommando skriver ut ditt dokument från den ändrade skrivaren. Jag har skrivit ut det aktiva arket här. Du kan ge valfritt arknamn för att skriva ut det omedelbart.
mynetwork.setdefaultprinter “Original_Default_Printer”: Denna rad återställer din ursprungliga skrivare till standard. Detta är valfritt. Om du inte vill ändra, hoppa över den här raden. Eller så kan du ställa in den på någon annan skrivare innan koden tar slut.