Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{1,#N/A})"

Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,True,,,{1,#N/A})"

Public Sub SetHalfPageZoom()
' Устанавливает масштаб страницы в 2 раза меньше подгона к 1 стр. по высоте
     Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{#N/A,1})"
     ActiveSheet.PageSetup.Zoom = 100 * ActvPageZoom / 2
End Sub

Function ActvPageZoom() As Double
Const MACRO_CMD_STR = "PAGE.SETUP(,,,,,,,,,,,,{#1,#2})"
Dim tPgN$, wPgN$

     With ActiveSheet.PageSetup
       If .Zoom > 0 Then
             ActvPageZoom = .Zoom / 100
       Else
         tPgN$ = IIf(.FitToPagesTall > 0, .FitToPagesTall, "#N/A")
         wPgN$ = IIf(.FitToPagesWide > 0, .FitToPagesWide, "#N/A")
             Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})"
             ActvPageZoom = .Zoom / 100
         Application.ExecuteExcel4Macro Replace(Replace(MACRO_CMD_STR, "#1", wPgN$), "#2", tPgN$)
       End If
     End With 'ActiveSheet.PageSetup
End Function