Microsoft Excel 2016'da VBA Kullanarak Varsayılan Yazıcı Nasıl Değiştirilir

Merhaba!

Varsayılan yazıcınız ofisin uzak köşesinde mi bulunuyor?

Sayfanızı yanınızdaki yazıcıdan yazdırmak ister misiniz?

Yazdır diyalog bölümünde değiştirebilirsiniz ama bunu yapmak için çok mu tembelsiniz?

Pek çok yaratıcı insan tembeldir, senin ve benim gibi.

Merak etme. sana sahibim Bir kereliğine VBA kullanarak yapalım…
Aşağıda, varsayılan yazıcınızı istediğiniz yazıcıya göre değiştiren ve orijinal yazıcıyı varsayılan yazıcıya geri döndüren kod bulunmaktadır.

Alt Change_Default_Printer()
mynetwork = CreateObject ("WScript.network") olarak ayarlayın
mynetwork.setdefaultprinter "Yazıcı Adınız" 'yazı yazmak yazıcılarınızın adı burada
ActiveSheet.PrintOut
mynetwork.setdefaultyazıcı "orijinal_Default_Printer" ‘orijinal yazıcınızı varsayılana geri ayarlayın”
Alt Bitiş

Her satırı kıralım.

Set mynetwork = CreateObject("WScript.network") : Burada bir nesne yarattık “benim ağım" ile ilgili WScript.Network VBA'ları kullanarak CreateObject() işlev. Dahili olarak “IWshNetwork2” nesne türü.
WshNetwork2 bilgisayar ağına erişim sağlar. Bilgisayara bağlı tüm cihazlarla oynayabiliriz. Şimdilik yazıcıları kullanacağız.
mynetwork.setdefaultprinter "Yazıcı Adınız": Bu çizgide, biz eskiden excel vba yazıcı seçin. varsayılan yazıcı mülkiyet WshNetwork2nesne, tercihinize göre varsayılan yazıcıyı seçmek için kullanılır. Yazıcınızın adını çift tırnak (“ ”) arasına yazın.
ActiveSheet.PrintOut: Bu komut, belgenizi değiştirilen yazıcıdan yazdırır. Aktif sayfayı buraya yazdırdım. Hemen yazdırmak için herhangi bir sayfa adı verebilirsiniz.
mynetwork.setdefaultyazıcı "orijinal_Default_Printer": Bu satır, orijinal yazıcınızı varsayılana döndürür. Bu isteğe bağlıdır. Değiştirmek istemiyorsanız, bu satırı atlayın. Veya kodunuz bitmeden başka bir yazıcıya ayarlayabilirsiniz.