Merhaba;
Sub Change_Default_Printer()
On Error Resume Next
Set mynetwork = CreateObject("WScript.network") 'VBA'nın CreateObject () işlevini kullanarak WScript.Network'ün " ağım " nesnesini oluşturduk . Dahili olarak " IWshNetwork2" tipi nesne döndürür .
mynetwork.setdefaultprinter "printer adı" '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 'belgenizi değiştirilen yazıcıdan yazdırır. bu satırı rem yapabilirsiniz.
mynetwork.setdefaultprinter "original_Default_Printer" 'orijinal yazıcınızı varsayılana döndürür
End Sub
Set mynetwork = CreateObject("WScript.network") 'VBA'nın CreateObject () işlevini kullanarak WScript.Network'ün " ağım " nesnesini oluşturduk . Dahili olarak " IWshNetwork2" tipi nesne döndürür .
mynetwork.setdefaultprinter "printer adı" '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.
Bu iki satırı (printer adı belirterek") dosya açılışında,
mynetwork.setdefaultprinter "original_Default_Printer" 'orijinal yazıcınızı varsayılana döndürür
Bu satırı ise (printer adı belirterek") dosya kapanırken
kullanırsanız sanırım sonuç alırsınız.
Not: Kodlar alıntıdır. (denemedim)
İyi çalışmalar.