Sådan ændres standardprinteren ved hjælp af VBA i Microsoft Excel 2016

Hej!

Er din standardprinter placeret i det fjerneste hjørne af kontoret?

Vil du udskrive dit ark fra printeren ved din side?

Du kan ændre det i udskriftsdialogafsnittet, men er du også doven til at gøre det?

De fleste opfindsomme mennesker er dovne, ligesom dig og mig.

Bare rolig. Jeg har dig. Lad os gøre det ved hjælp af VBA en gang for alle …
Nedenfor er den kode, der ændrer din standardprinter til dit valg af printer og sætter den originale printer tilbage til standardprinteren.

Sub Change_Default_Printer ()
Indstil mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Dit printernavn" 'skrive dit printeres navn her
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “Original_Default_Printer” ‘sæt din originale printer tilbage til standard ”
Afslut Sub

Lad os slå hver linje ned.

Indstil mynetwork = CreateObject ("WScript.network"): Her har vi oprettet et objekt "mit netværk”Af WScript.Network ved hjælp af VBA’er CreateObject () fungere. Internt vender det tilbage "IWshNetwork2 ” objekttype.
WshNetwork2 giver adgang til netværket af computere. Vi kan lege med alle de enheder, der er tilsluttet computeren. For nu vil vi bruge printere.
mynetwork.setdefaultprinter "Dit printernavn": I denne linje plejede vi at excel vba select printer. standardprinter ejendom af WshNetwork2objekt bruges til at vælge standardprinteren efter eget valg. Skriv printerens navn mellem dobbelt anførselstegn (“”).
ActiveSheet.PrintOut: Denne kommando udskriver dit dokument fra den ændrede printer. Jeg har printet det aktive ark her. Du kan give et hvilket som helst arknavn for at udskrive det med det samme.
mynetwork.setdefaultprinter “Original_Default_Printer”: Denne linje sætter din originale printer tilbage til standard. Dette er valgfrit. Hvis du ikke vil ændre, skal du springe denne linje over. Eller du kan indstille den til en anden printer, før din kode slutter.