aynı sekmede birden fazla yazdırma alanı varken kimini yatay kimini düşey belirleme

[modoste]

merhaba sayın hocaların
sorudak, metinde de belirttiğim gibi Örneğin Sayfa1 sekmemde birden fazla sayfa sonu var ve ben mesela 1. ve 2. sayfayı yatay, diğerlerini düşey belirlemek istiyorum
excelde bu ayar var mı,

kullanımlarımda bir sekmeden sadece bir defa ayar yapılıyo her sayfa sonu ona uyuyor diye biliyorum

 

[necati]

Fikir vermesi için şu kod incelenebilir.
Tek numaralı sayfayı yatay, çift numaralı sayfayı dikey yazdırır.

Sub Yazdirma_Secenekleri()
    Dim say As Integer, i As Integer
    
    say = Application.InputBox("Kaç Sayfa Yazdırayım", Type:=2)

    For i = 1 To say
        If i Mod (2) = 0 Then
            ActiveSheet.PageSetup.Orientation = xlPortrait
        Else
            ActiveSheet.PageSetup.Orientation = xlLandscape
        End If
        ActiveSheet.PrintOut , preview:=True
    Next i

End Sub