Her sayfa farkli büyüklükte

[rekkezum]

Selamlar arkadaşlar,
Şunu yapabilirmiyim ; sheet1 de birden fazla syfa yarattım yazdırmadan veya sabitleyebildiğim ve her sayfanın % olarak büyüklüğü farklı olabilirmi.

 

[Korhan Ayhan]

Selamlar,

Sorunuzu örnek dosya ile desteklermisiniz. Sanırım yazdırma işleminde her sayfanın zoom oranını farklı yapmak istiyorsunuz. Eğer tablo yapınız müsaitse çözüm üretebiliriz.

 

[rekkezum]

Selamlar,

Sorunuzu örnek dosya ile desteklermisiniz. Sanırım yazdırma işleminde her sayfanın zoom oranını farklı yapmak istiyorsunuz. Eğer tablo yapınız müsaitse çözüm üretebiliriz.

İlgin için saol. Aynen dediğiniz gibi aynı sheet te 2 sayfa biri istediğim gibi tam ekran ama diğeri ufak. Ufak olanı büyüttüğümde diğeride büyüyor ve sayfa dışına çıkıyor. Dosya ekte...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Yalnız ikinci sayfanın satır sayısı değişecekse kodu revize etmek gerekecektir.

Option Explicit
 
Sub YAZDIR()
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$BI$43"
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut
 
    With ActiveSheet.PageSetup
        .PrintArea = "$BL$1:$CC$43"
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut
 
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$CC$47"
        .Orientation = xlLandscape
        .Zoom = 80
    End With
End Sub

 

[rekkezum]

Hocam beceremedim yada anlayamadım bunu sayfanın cod bölümüne yapıştırmam yeterlimidir...
Birde sayfa 1 yatay sayfa 2 dikey olarak yazdırmak mümkünmü...
İlginiz için çok teşekkür ederim...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu isteğiniz doğrultusunda revize ettim. İlk sayfa yatay ikinci sayfa ise dikey olarak yazdırılmaktadır.

Çalışmanıza boş bir modül ekleyip kodu modül içine uygulayın. Daha sonra sayfa üzerine atayacağınız bir butona makroyu tanımlayıp çalıştırın.