Sayfa çıktısının bir kısmını yatay ve bir kısmını dikey olarak ayarlama

[Karamanli.70]

Arkadaşlar Merhabalar. Excellde ilk 2 sayfayı yatay kalanı dikey olacak şekilde ayarlamak mümkün mü? Word de olduğu gibi

 

[RBozkurt]

Sayfa1 ve 2 'yi
Sayfa düzeni > Yönlendirme > Yatay

Diğerlerini
Sayfa düzeni > Yönlendirme >Dikey şeklinde denediniz mi?

 

[Karamanli.70]

Sayfa düzeni > Yönlendirme > Yatay
yaptığımda hepsini ya yatay yada hepsini dikey yapıyor excell
olmadı maalesef

 

[necati]

Arkadaşlar Merhabalar. Excellde ilk 2 sayfayı yatay kalanı dikey olacak şekilde ayarlamak mümkün mü? Word de olduğu gibi

Merhaba, örnek bir çalışma aşağıda. Yazdırma alan adreslerini kendinize göre düzenleyiniz.

Sub Yazdirma_Secenekleri()
Dim Yaz_Alan As Variant, i As Integer
    
Yaz_Alan = Array("$A$1:$J$50", "$A$51:$J$100", "$A$101:$F$150", "$A$151:$F$200", "$A$201:$F$250")

For i = LBound(Yaz_Alan) To UBound(Yaz_Alan)

    If i = 0 Or i = 1 Then
        ActiveSheet.PageSetup.Orientation = xlLandscape
        ActiveSheet.PageSetup.PrintArea = Yaz_Alan(i)
    Else
        ActiveSheet.PageSetup.Orientation = xlPortrait
        ActiveSheet.PageSetup.PrintArea = Yaz_Alan(i)
    End If
    ActiveSheet.PrintOut
Next

End Sub

 

[Karamanli.70]

Çok Teşekkür ederim Necati Bey hemen deniyorum. Ellerinize sağlık Çok teşekkür ederim