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