Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Application ExecuteExcel4Macro

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