Yazdır makrosuna "iki yüze yazdır" satırı ekleme

[meleklerim]

Arkadaşlar herkese selamlar.
Aşağıdaki makroyu kaydetme yöntemiyle oluşturdum. Kaydederken yazıcı ayarlarında yaptığım "iki yüze yazdır" ve "uzun kenarından çevir" seçenekleri makromda satır olarak yer almadı. Dolayısyla istediğim gibi çalışmıyor. Bu komutları manuel olarak bu makroya nasıl ekleyebiliriz?

YAZDIR Makro
Sheets("V-Yzdr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Verbs").Select
Range("A1").Select
End Sub

 

[ÖmerBey]

Merhaba,
Bu ayarlar excel üzerinden değil de yazıcı ayarları üzerinden yapıldığı için maalesef bu ayarları manuel yapmanız gerekiyor. Yazıcı ayarlarından iki yüze yazdırmayı varsayılan olarak ayarlayarak deneyebilirsiniz.
Bununla birlikte kullanılan yazıcıya özel api yazılarak çözüm üretilebilir sanıyorum, ancak bu apiyi yazabilecek birini bulmak biraz zor olabilir.
İyi çalışmalar...

 

[meleklerim]

Merhaba,
Bu ayarlar excel üzerinden değil de yazıcı ayarları üzerinden yapıldığı için maalesef bu ayarları manuel yapmanız gerekiyor. Yazıcı ayarlarından iki yüze yazdırmayı varsayılan olarak ayarlayarak deneyebilirsiniz.
Bununla birlikte kullanılan yazıcıya özel api yazılarak çözüm üretilebilir sanıyorum, ancak bu apiyi yazabilecek birini bulmak biraz zor olabilir.
İyi çalışmalar...

çok teşekkür ederim ömer bey ilginiz için.