Jak zmienić domyślną drukarkę za pomocą VBA w programie Microsoft Excel 2016?

Anonim

Cześć!

Czy Twoja domyślna drukarka znajduje się w odległym rogu biura?

Chcesz wydrukować arkusz z drukarki po swojej stronie?

Możesz to zmienić w sekcji dialogowej drukowania, ale jesteś zbyt leniwy, aby to zrobić?

Cóż, najbardziej pomysłowi ludzie są leniwi, tak jak ty i ja.

Nie martw się. Mam cię. Zróbmy to raz na zawsze w VBA…
Poniżej znajduje się kod, który zmienia drukarkę domyślną na wybraną przez użytkownika i przywraca drukarkę oryginalną jako drukarkę domyślną.

Sub Change_Default_Printer()
Ustaw mojasieć = CreateObject("WScript.network")
mojasieć.setdomyślnadrukarka "Twoja nazwa drukarki" 'pisać nazwa twojej drukarki tutaj
Aktywny arkusz.Wydruk
mynetwork.setdefaultprinter „oryginalna_domyślna_drukarka” ‘przywróć oryginalną drukarkę do ustawień domyślnych”
Napis końcowy

Złammy każdą linię.

  1. Set mynetwork = CreateObject("WScript.network") : Tutaj utworzyliśmy obiekt “moja sieć" z WScript.Network przy użyciu VBA UtwórzObiekt() funkcjonować. Wewnętrznie zwraca”IWshNetwork2” rodzaj obiektu.
    WshNetwork2 daje dostęp do sieci komputerów. Możemy bawić się wszystkimi urządzeniami podłączonymi do komputera. Na razie będziemy korzystać z drukarek.
  2. mojasieć.setdomyślnadrukarka "Twoja nazwa drukarki": W tym wierszu zwykliśmy Wybierz drukarkę Excel vba. domyślna drukarka własność WshNetwork2obiekt służy do wyboru domyślnej drukarki do wyboru. Wpisz nazwę drukarki w cudzysłowie („ ”).
  3. Aktywny arkusz.Wydruk: To polecenie drukuje dokument ze zmienionej drukarki. Tutaj wydrukowałem aktywny arkusz. Możesz nadać dowolną nazwę arkusza, aby natychmiast go wydrukować.
  4. mynetwork.setdefaultprinter „oryginalna_domyślna_drukarka”: Ten wiersz przywraca oryginalną drukarkę do stanu domyślnego. Jest to opcjonalne. Jeśli nie chcesz zmieniać, pomiń ten wiersz. Możesz też ustawić ją na inną drukarkę przed zakończeniem kodu.

Więc jak było? Czy to zadziałało dla Ciebie? Czy to było trudne? Daj znać w komentarzach. Bądź na bieżąco z bardziej innowacyjnymi i łatwymi lekcjami. Do widzenia.

Popularne artykuły:

50 skrótów Excela, aby zwiększyć produktywność

Jak korzystać z funkcji WYSZUKAJ.PIONOWO w programie Excel

Jak korzystać z funkcji LICZ.JEŻELI w programie Excel 2016

Jak korzystać z funkcji SUMA.JEŻELI w programie Excel