Sayfayı pdf olarak bastırdığınızda sonuç nasıl birden çok sayfa olur?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Bu çalışmada Excel'de oluşturduğum sayfa, yatay A4 olarak yazıcıdan 4 sayfa çıkıyor. Bu makro bu işi tek sayfa pdf yapıyor. Nasıl bir değişiklik kağıda basıldığı gibi çıkmasını sağlar?

Sub Pdf_Yap()
    On Error Resume Next
    
        dosya_adı = Range("E2").Value
        klasor = ActiveWorkbook.Path & "\Pdf\"
        
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .BlackAndWhite = False
    End With
                
    Range([E3].Text).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    klasor & dosya_adı, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Saygılarımla

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Herkesten özür diliyorum. Önceden yazıcı ayarlarında hepsini bir sayfaya sığdır işaretlenmiş, öyle de kalmış.
Saygılarımla