“VBA - Imprima hojas de trabajo en una página” Código de respuesta

VBA - Imprima hojas de trabajo en una página

'Print Sheet1 exactly one page wide and tall
With Worksheets("Sheet1").PageSetup
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With