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