Excel VisualBasic Script

Sub print()
    ActiveWorkbook.Sheets(1).Printout Copies:=2, Collate:=True
End Sub