Sub Test3()
'Mine
Dim sHead As String, sFoot As String, left, right, top, bot, hdng, grid, h_cntr, v_cntr
Dim orient, paper_size, iscale, pg_num, pg_order, bw_cells, quality
Dim head_margin, foot_margin, notes, draft
'// NB: If any of the Variables are set wrong you will
'// Get NO error BUT it won't setup as you want.
ExecuteExcel4Macro ("Page.Setup(""Hello"",""Testing"",0.75,0.75,1,1,FALSE,FALSE,FALSE,FALSE,2,9,TRUE,100,1,FALSE,360,0.5,0.5,FALSE,FALSE)")
End Sub