Save as PDF; fit sheet on one page

[Gaellus]

Hello,

I have this code which works:

Sub printPDFSave()
Dim rng As Range
Dim fPathFile As String

    Set rng = [PDFRange]
    fPathFile = [pdfPathFile]
    rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPathFile, quality:=xlQualityStandard, _
        includedocproperties:=True, ignoreprintareas:=True, openafterpublish:=True
    
    
End Sub

the range and pathfile I have defined as names in the name manager.

The only problem now is that the range is too big to fit on one page so when I use the code I get a saved file which consists of 4 pages.
How can I add the option "Fit sheet on one page"?