Excel'de aynı sayfa içerisinde yatay ve dikey çıktı alma

[mrtzor88]

Selamlar. Uzun süredir aradığım bir konu ama bir türlü tam olarak çözüm bulamadım.

Tek seferde aynı sayfa içerisindeki yazdırma alanlarının bir kısmını dikey bir kısmını yatay çıktı almak istiyorum. Excel' in kendi özellikleri içerisinde yapılacak bir konu değil galiba. (Word' te basitçe yapılabiliniyor). VBA ile bu konuda yardımcı olursanız çok makbule geçer.

İyi Çalışmalar.

 

[Orion1]

Buyurun.

With ActiveSheet.PageSetup
        'Kağıt Yatay Yazdırılıyor
        .Orientation = xlLandscape'Dikey yazdırmak=.Orientation = xlPortrait

 

[mrtzor88]

Buyurun.

With ActiveSheet.PageSetup
        'Kağıt Yatay Yazdırılıyor
        .Orientation = xlLandscape'Dikey yazdırmak=.Orientation = xlPortrait

Cevabınız için teşekkürler ama aralıkları seçmemiz gerekmiyor mu
Örneğin
"A1J50" hücreleri arası "Dikey"
"A53R87" hücreleri arası "Yatay" çıktı almak istiyorum

 

[Orion1]

Cevabınız için teşekkürler ama aralıkları seçmemiz gerekmiyor mu
Örneğin
"A1J50" hücreleri arası "Dikey"
"A53R87" hücreleri arası "Yatay" çıktı almak istiyorum

Buyurun.

With ActiveSheet.PageSetup
        .PrintArea = "A53:R87"
        'Kağıt Yatay Yazdırılıyor
        .Orientation = xlLandscape 'Dikey yazdırmak=.Orientation = xlPortrait
        ActiveSheet.PrintOut
        .PrintArea = "A1:J50"
        'Kağıt Dikey Yazdırılıyor
        .Orientation = xlPortrait
        ActiveSheet.PrintOut
End With

 

[mrtzor88]

Buyurun.

With ActiveSheet.PageSetup
        .PrintArea = "A53:R87"
        'Kağıt Yatay Yazdırılıyor
        .Orientation = xlLandscape 'Dikey yazdırmak=.Orientation = xlPortrait
        ActiveSheet.PrintOut
        .PrintArea = "A1:J50"
        'Kağıt Dikey Yazdırılıyor
        .Orientation = xlPortrait
        ActiveSheet.PrintOut
End With

Hocam şöyle bir durum var çıktıları farklı dosyalara alıyor. Yani tek tek çıktı alıyormuşuz gibi.
Örneğin önce yatay sayfanın yazdırma alanını seçip çıktı alıyoruz, daha sonra dikey sayfayı seçip alıyormuşuz gibi. (PDF çıktı alma imkanınız varsa görebilirsiniz). Son olarak çıktı almadan önce sayfa önizleme imkanımız var mı?

 

[Orion1]

Hocam şöyle bir durum var çıktıları farklı dosyalara alıyor. Yani tek tek çıktı alıyormuşuz gibi.
Örneğin önce yatay sayfanın yazdırma alanını seçip çıktı alıyoruz, daha sonra dikey sayfayı seçip alıyormuşuz gibi. (PDF çıktı alma imkanınız varsa görebilirsiniz). Son olarak çıktı almadan önce sayfa önizleme imkanımız var mı?

Başka nasıl olacak ki.
Evet sıra ile önce bir yatay sonrada dikey yazdırılyor.

 

[mrtzor88]

Başka nasıl olacak ki.
Evet sıra ile önce bir yatay sonrada dikey yazdırılyor.

Demek istediğim şu. 100 Sayfa PDF çıktı alacağımı düşünün. Kaydetmek için 100 farklı sayfa ismi istiyor. Benim anlatmak istediğim açıkça yazdığım aralıklar ardarda çıksın. Yani 100 sayfalık rapor arada rastgele 25 sayfası yatay geri kalanı dikey ama tek dosya olsun.