Soru Belirtilen alanı tek sayfaya sığdırmak

[seckinb]

Merhaba,

A5 boyutunda reçete kağıdını bastırmak istiyorum.

nedenini bilmediğim bir şekilde 2 sayfaya bölüp ayrı ayrı bastırıyor.

Nerede hata yapıyorum?

Private Sub bastir_Click()
'A5 formatında bastırma
Dim recete As Worksheet
Set recete = ThisWorkbook.Sheets("recete")

    With ActiveSheet.PageSetup
        .PrintArea = "$B$2:$H$36"
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Orientation = xlPortrait
        .PaperSize = xlPaperA5
        
    End With
    
recete.PrintOut
End Sub

 

[cicosz]

Merhaba,
printarea satırının üzerine aşağıdaki kodu ekleyerek dener misiniz?

.Zoom = False

 

[seckinb]

Private Sub bastir_Click()
'A5 formatında bastırma
Dim recete As Worksheet
Set recete = ThisWorkbook.Sheets("recete")

    With ActiveSheet.PageSetup
        .PrintArea = "$B$2:$H$36"
        .Zoom = False
        .FitToPagesWide = 1
        .Orientation = xlPortrait
        .PaperSize = xlPaperA5
       
    End With
   
recete.PrintOut
End Sub

doğru mu eklemişim?

neden zoom böyle bir hataya neden oluyor?

 

[cicosz]

Doğrudur. Deneyin olmazsa yazıcı ayarından gideriz.

edit: 1 satırı atlamışsınız. .FitToPagesTall = 1

 

[seckinb]

Doğrudur. Deneyin olmazsa yazıcı ayarından gideriz.

edit: 1 satırı atlamışsınız. .FitToPagesTall = 1

PageSetup.Zoom property (Excel)

Office VBA reference topic

docs.microsoft.com

If this property is False, the FitToPagesWide and FitToPagesTall properties control how the worksheet is scaled.

çok teşekkürler. çalışıyor.