' Datei: PrintAllWorksheets.vbs
' VBSkript zum drucken aller Worksheets

Set objXL = WScript.CreateObject("Excel.Application")
 With objXL
     .Visible = True
     .Workbooks.Open ("c:\Eigene Dateien\mappe1.xls")
       .Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
       .Sheets.PrintPreview
     .Workbooks.Close
     .Quit
 End With
 Msgbox "Job erledigt!"