ich habe eine Arbeitsmappe bestehend aus 14 Tabellen. Hiervon sollen zum Ende meiner Auswertung die ersten 13 Seiten gedruckt werden. Da die Tabellenblätter individuelle Namen (vom künftigen User selbst auswählbar) haben, musste ich die Tabellenblätter in den Makros von z.B. Sheet.Tabelle("T_01") auf Worksheet(01) umbenennen. Dadurch hat die Namensgebung keine Auswirkung auf meine Makros. Alle Makros funktionieren dauerhaft, egal wie sie der künftige User benennt. Und hier mein Problem:
Bislang sende ich für jedes Worksheet den Druckbefehl einzeln. Das heißt, es öffnen sich nacheinander 13 kleine Fensterchen für den Druckauftrag. Da die Aufträge an einen Drucker geschickt werden, auf den man den Mitarbeiterausweis auflegen muss, damit man seine Ausdrucke erhält, dauert das umso länger (ca. 2 Minuten). Mein Makro sieht momentan so aus, da ich noch keine andere Lösung gefunden habe, wie man mehrere Worksheets selektiert und an den Drucker schickt:
Application.ActivePrinter = "\\SW020910.europe.bmw.corp\secure auf Ne02:"
Worksheets(1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(2).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(3).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(4).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(5).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(6).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(7).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(8).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(9).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(10).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(11).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(12).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(13).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Application.ScreenUpdating = True
Worksheets(1).Select
Es muss doch eine Möglichkeit geben, wie man die 13 Worksheets selektieren und gemeinsam an den Drucker schicken kann oder? Bitte helft uns, damit wir unser Projekt beenden können. Vielen lieben Dank schon mal. Gruß Pflaume