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.