31/05/2020, 13:44 #1 Aktif Üye m_demir Bul Aktif Üye Adı Soyadı: De.... Yı.... Yaşı: 62 Konum: - Ofis Versiyonu: Ofis 2010 64 Bit Son Oturumu: 04/03/2021,21:37 Yorumları: 586 Konuları: 117 Kayıt Tarihi: 03/06/2016 Rep Puanı: 0 Mesleğiniz: Grafiker 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. Visual Basic Code ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & [A65536].End(3).Row ActiveSheet.PrintOut Cevapla Cevapla
31/05/2020, 14:37 #2 Berduş berduş Bul Uzman Adı Soyadı: ha.... Konum: - Ofis Versiyonu: Ofis 2019 64 Bit Son Oturumu: Bugün,02:47 Yorumları: 5.654 Konuları: 97 Kayıt Tarihi: 30/07/2014 Rep Puanı: 713 Visual Basic Code ActiveSheet.PageSetup.Orientation = xlPortrait yada xlLandscape yazdırma kodundan önce bu satırlar eklenebililr Cevapla Cevapla
31/05/2020, 14:42 #3 Aktif Üye m_demir Bul Aktif Üye Adı Soyadı: De.... Yı.... Yaşı: 62 Konum: - Ofis Versiyonu: Ofis 2010 64 Bit Son Oturumu: 04/03/2021,21:37 Yorumları: 586 Konuları: 117 Kayıt Tarihi: 03/06/2016 Rep Puanı: 0 Mesleğiniz: Grafiker Çok teşekkürler Hocam ellerinize sağlık. Hocam konuyu taşıyabilirsiniz. İyi çalışmalar. Cevapla Cevapla