Yazıcıda Çıktı Almak - Baskı Önizleme

Yazıcıda Çıktı Almak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yazıcıda Çıktı Almak (/konu-yazicida-cikti-almak.html)

Yazıcıda Çıktı Almak - m_demir - 31/05/2020

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

RE: Yazıcıda Çıktı Almak - berduş - 31/05/2020

ActiveSheet.PageSetup.Orientation = xlPortrait

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

RE: Yazıcıda Çıktı Almak - m_demir - 31/05/2020

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

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