Hoi!
Staat uw standaardprinter in de verre hoek van het kantoor?
Wilt u uw vel afdrukken vanuit de printer aan uw zijde?
Je kunt het wijzigen in de printdialoogsectie, maar ben je te lui om dat ook te doen?
Nou, de meeste inventieve mensen zijn lui, zoals jij en ik.
Maak je geen zorgen. Ik heb je. Laten we het voor eens en altijd met VBA doen…
Hieronder vindt u de code die uw standaardprinter verandert in een printer van uw keuze en de oorspronkelijke printer terugzet naar de standaardprinter.
| Sub Change_Default_Printer() Stel mijnnetwerk = CreateObject ("WScript.network") in mijnnetwerk.setdefaultprinter "Uw printernaam" 'schrijven uw printernaam hier ActiveSheet.PrintOut mijnnetwerk.setdefaultprinter "original_Default_Printer" ‘zet uw originele printer terug naar standaard” Einde sub |
Laten we elke regel kraken.
- Set mynetwork = CreateObject("WScript.network") : Hier hebben we een object gemaakt “mijn netwerk" van WScript.Netwerk VBA's gebruiken CreëerObject() functie. Intern keert het terug "IWshNetwerk2” soort voorwerp.
WshNetwerk2 geeft toegang tot het netwerk van computers. We kunnen spelen met alle apparaten die op de computer zijn aangesloten. Voorlopig gebruiken we printers. - mijnnetwerk.setdefaultprinter "Uw printernaam": In deze regel gebruikten we om excel vba select-printer. standaard printer eigendom van WshNetwerk2object wordt gebruikt om de standaardprinter van uw keuze te selecteren. Schrijf de naam van uw printer tussen dubbele aanhalingstekens (“ ”).
- ActiveSheet.PrintOut: Deze opdracht drukt uw document af vanaf de gewijzigde printer. Ik heb het actieve blad hier afgedrukt. U kunt elk blad een naam geven om het meteen af te drukken.
- mijnnetwerk.setdefaultprinter "original_Default_Printer": Deze regel stelt uw oorspronkelijke printer weer in op de standaardwaarde. Dit is optioneel. Als u niet wilt wijzigen, slaat u deze regel over. Of u kunt het op een andere printer instellen voordat uw code afloopt.
Hoe was het? Werkte het voor jou? Was het moeilijk? Laat het me weten in de reacties. Blijf op de hoogte voor meer innovatieve en gemakkelijke lessen. Doei.
Populaire artikels:
50 Excel-snelkoppeling om uw productiviteit te verhogen
Hoe de VERT.ZOEKEN-functie in Excel te gebruiken?
Hoe de AANTAL.ALS-functie in Excel 2016 te gebruiken?
Hoe de SUMIF-functie in Excel te gebruiken?