Sub Macro1_Version4()
Dim St As String
St = "PAGE.SETUP(, , " & _
"1.5, 1.5, 1.5, 1.5" & _
", 0, False, False, False, 1, 1, True, 1, 1,False, , " & _
"1, 1" & _
", False)"
Application.ExecuteExcel4Macro St
End Sub