Slik endrer du standardskriveren ved hjelp av VBA i Microsoft Excel 2016

Hei der!

Ligger standardskriveren ytterst på kontoret?

Vil du skrive ut arket ditt fra skriveren ved din side?

Du kan endre det i utskriftsdialogdelen, men du er for lat til å gjøre det også?

De fleste oppfinnsomme mennesker er late, som deg og meg.

Ikke bekymre deg. Jeg har deg. La oss gjøre det ved å bruke VBA en gang for alle …
Nedenfor er koden som endrer standardskriveren til ditt valg av skriver og setter den originale skriveren tilbake til standardskriveren.

Sub Change_Default_Printer ()
Sett mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Skrivernavnet ditt" 'skrive skriverens navn her
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “Original_Default_Printer” ‘sett den originale skriveren tilbake til standard "
Slutt Sub

La oss slå ned hver linje.

Sett mynetwork = CreateObject ("WScript.network"): Her har vi opprettet et objekt "nettverket mitt”Av WScript.Network bruker VBA CreateObject () funksjon. Internt kommer det tilbake "IWshNetwork2 ” objekttype.
WshNetwork2 gir tilgang til nettverket av datamaskiner. Vi kan leke med alle enhetene som er koblet til datamaskinen. Foreløpig bruker vi skrivere.
mynetwork.setdefaultprinter "Skrivernavnet ditt": I denne linjen pleide vi å excel vba select -skriver. standardskriver tilhører WshNetwork2objektet brukes til å velge standardskriveren du ønsker. Skriv skriverens navn mellom doble anførselstegn (“”).
ActiveSheet.PrintOut: Denne kommandoen skriver ut dokumentet fra den endrede skriveren. Jeg har skrevet ut det aktive arket her. Du kan gi et hvilket som helst arknavn for å skrive det ut umiddelbart.
mynetwork.setdefaultprinter “Original_Default_Printer”: Denne linjen setter den originale skriveren tilbake til standard. Dette er valgfritt. Hvis du ikke vil endre, hopper du over denne linjen. Eller du kan sette den til en annen skriver før koden slutter.