Sayfayı pdf olarak kaydederken tüm sütunları tek sayfaya sığdırma

[aureliane]

selam arkadaşlar, makro ile istediğimiz sayfayı veya seçili alanı pdf olarak aktarabiliyorum forumda yüzlerce örnek var, fakat benim seçili alanım biraz geniş geliyor herhaldeki yazdırma kısmında ayarlayabildiğimiz "tüm sütunları bir sayfaya sığdır" komutunu veremiyorum. bunu nasıl halledebiliriz.

Sub pdfkaydet()
Application.ScreenUpdating = False

Sheets("pdf").Select
X = [I1]
dosyaadi = Range("a1").Value
dosyayolu = ThisWorkbook.Path & "\"
With Sheets("pdf").Range(Cells(1, "a"), Cells(X, "g"))
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=dosyayolu & "\" & dosyaadi & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False '
End With
    Application.CutCopyMode = False
        Sheets("giriş").Select
End Sub