' Datei: PrintAllWorksheets.vbs
' VBSkript zum drucken aller Worksheets
Dim ag
Set ag=Wscript.Arguments
Dim fso
Dim File
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(Ag(0))

Set objXL = WScript.CreateObject("Excel.Application")
 With objXL
     .Visible = True
     .Workbooks.Open (file)
       '.Sheets(Array(1, 2, 3)).Select
       .Sheets.Select
       .Sheets.PrintPreview
     .Workbooks.Close
     .Quit
 End With
 Msgbox "Job erledigt!"