Hei siellä!
Onko oletustulostimesi toimiston kaukana?
Haluatko tulostaa arkin vieressä olevasta tulostimesta?
Voit muuttaa sen tulostusvalintaikkunassa, mutta olet liian laiska tekemään niin?
Useimmat kekseliäiset ihmiset ovat laiskoja, kuten sinä ja minä.
Älä huoli. Sain sinut. Tehdään se kerran VBA: n avulla …
Alla on koodi, joka muuttaa oletustulostimesi valitsemallesi tulostimelle ja palauttaa alkuperäisen tulostimen oletustulostimeksi.
| Alimuutos_oletustulostin () Aseta mynetwork = CreateObject ("WScript.network") mynetwork.setdefaultprinter "Tulostimen nimi" 'kirjoittaa tulostimesi nimi täällä ActiveSheet.PrintOut mynetwork.setdefaultprinter "Alkuperäinen_oletustulostin" ‘palauta alkuperäinen tulostin oletukseesi ” End Sub |
Katkotaan jokainen rivi alas.
- Aseta mynetwork = CreateObject ("WScript.network"): Tässä olemme luoneet objektin "Minun verkostoni” / WScript.Verkko käyttämällä VBA: ta CreateObject () toiminto. Sisäisesti se palaa ”IWshNetwork2 ” objektin tyyppi.
WshNetwork2 antaa pääsyn tietokoneverkkoon. Voimme leikkiä kaikilla tietokoneeseen liitetyillä laitteilla. Käytämme toistaiseksi tulostimia. - mynetwork.setdefaultprinter "Tulostimen nimi": Tällä linjalla meillä oli tapana excel vba select -tulostin. oletustulostin Omaisuutta WshNetwork2-objektia käytetään valitsemaan oletustulostin. Kirjoita tulostimesi nimi lainausmerkkien (””) väliin.
- ActiveSheet.PrintOut: Tämä komento tulostaa asiakirjasi vaihdetusta tulostimesta. Olen tulostanut aktiivisen arkin tähän. Voit antaa minkä tahansa arkin nimen tulostaaksesi sen heti.
- mynetwork.setdefaultprinter "Alkuperäinen_oletustulostin": Tämä rivi asettaa alkuperäisen tulostimen takaisin oletusarvoon. Tämä on valinnainen. Jos et halua muuttaa, ohita tämä rivi. Tai voit asettaa sen jollekin toiselle tulostimelle ennen koodin päättymistä.
Joten miten se oli? Toimiiko se sinulle? Oliko se vaikeaa? Kerro minulle kommenteissa. Pysy kuulolla innovatiivisempien ja helpompien oppituntien suhteen. Hei hei.
Suosittuja artikkeleita:
50 Excel -pikakuvake tuottavuuden lisäämiseksi
VLOOKUP -toiminnon käyttäminen Excelissä
COUNTIF -toiminnon käyttäminen Excel 2016: ssa
SUMIF -toiminnon käyttäminen Excelissä