Yardım Varsayılan Yazıcıda Açılma

çok saçma bir durumla karşı karşıyayım.varsayılan yazıcı dışında farklı sayfa kullanan bir yazıcıyı seçiyorum 3cm e 5 cm boyutunda sayfam.kaydedip çıkıyorum.tekrar açtığımda varsayılan yazıcı ve o yazıcının sayfa ayarları geliyor bunu kaydetmenin bir yolu yokmu acaba? şimdiden çok teşekkürler.

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.