Soru Yazdırma kalitesi

[GursoyC]

Merhaba,
bir excel çalışma kitabındaki makro düğmesi ile bu kitaptan ne yazdırılırsa yazdırılsın yazıcının daima "yüksek kalite" seçeneğini kullanarak bastırılması mümkün mü?
İnternette şu tarz bir kod buldum ama benim yazıcımın non-square pixel ayarlarını bilmediğim için uygulayamadım.

Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)

Not: Yazıcım Epson L386

Yardımcı olabilecek arkadaşlara teşekkür ederim.

 

[Korhan Ayhan]

Makro kaydet yöntemi ile belki yazıcınızın yazdırma kalitesi kodlarına erişebilirsiniz.

 

[GursoyC]

Merhaba Korhan bey,
Denedim. Maalesef sadece yazdırma kodlarını işliyor. Kalitesini yüksek kalite olarak belirleme kısmına bir şey yazmıyor.

 

[Seyit Tiken]

Şu şekilde deneyiniz.

Sayfa1.PageSetup.PrintQuality = 1200

 

[GursoyC]

Böyle bir hata alıyorum Seyit bey.

 

[Seyit Tiken]

Kodun yaptığı eylem bu,

 

[GursoyC]

Bende o kısım pasif konumda Seyit bey. Sanırım benim yazıcı ayarlarımla ilgili bir durum bu. Biraz daha araştırayım.
Çok teşekkür ederim. Saygılar,