Macro voor printen Verkleinen

[sparerib]

Beste

Voor een printknop om een bepaald gebied te printen heb ik op dit moment de volgende macro

Sub Samenvatting_Klikken()
 With ActiveSheet
        .PageSetup.PrintArea = "$A$1:$T$17"
        .PageSetup.Orientation = xlLandscape
        .PrintOut , Copies:=1
    End With
End Sub

Dit past echter niet op 1A4 en vereist nog een 2de bladzijde.
Ik had graag dat dit werd verkleint zodat het op 1 pagina zou passen, welke regel moet ik dan nog toevoegen zodat het geheel wordt verkleind zodat het op een A4 past?
Bedankt

 

[HSV]

Probeer deze eens eerst met een 'Printpreview'.

Sub Samenvatting_Klikken()
With ActiveSheet
 With .PageSetup
    .PrintArea = "$A$1:$T$17"
    .Orientation = xlLandscape
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
   End With
 .PrintOut , Copies:=1
End With
End Sub

 

[sparerib]

Werkt perfect!!!
hartstikke bedankt,