Modifier code imprimer en pdf

Bonsoir Forum,

ce code:

sub imprimer ()
'marge mise en page
Application.ScreenUpdating = False
Sheets("sheet1").Visible = True
    With Sheets("sheet1").PageSetup
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
    End With

    'imprimer pdf

Sheets("sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheets("sheet1").Range("ai6").Value & "_" & Format(Now(), "yyyy-mm-dd_hh-nn-ss") & ".pdf"

Application.ScreenUpdating = True
End Sub

ce code export document de 2 pages excel en pdf, mais en un seul page: taille reduit

svp comment le modifier pour qu'il se imprime en taille reel de 2 pages Comme dans Excel,

Merci infiniment