“VBA - Рабочие листы печати на одной странице” Ответ

VBA - Рабочие листы печати на одной странице

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