Excel VisualBasic Script

Sub printOut()
    Workbooks("Planning.xls").Sheets("Summary").printOut From:=1, To:=2, _
        PrintToFile:=True, PrToFileName:="\\server\to_print\Summary.prn"
End Sub