Yazıcıda Çıktı Almak

Merhaba Arkadaşlar

Eklediğim kod ile Excel sayfasında dolu olan alanı seçip yazdırıyorum. Yatay kağıt olarak ayarlıyor. Çıktıyı dikey kağıda çıkarması için koda nasıl bir değişiklik yapmam gerekiyor.

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & [A65536].End(3).Row

ActiveSheet.PrintOut

ActiveSheet.PageSetup.Orientation = xlPortrait

yada xlLandscape yazdırma kodundan önce bu satırlar eklenebililr

Çok teşekkürler Hocam ellerinize sağlık.

Hocam konuyu taşıyabilirsiniz. İyi çalışmalar.