Makro für Druck verkürzen (HILFE)

Hallo liebe Excel-Profis!
Ich habe ein Druck-Makro, das zum Ende der Ausführung einer Auswertung aktiviert wird. Meine Arbeitsmappe hat 14 Seiten, wovon aber nur die ersten 13 Seiten (EINSEITIG, nicht doppelseitig) gedruckt werden sollen. Das löse ich über folgedes Makro:
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
Bis dieses Makro die einzelnen Druckaufträge verschickt hat, vergehen 1-2 Minuten, wodruch meine Liste für die "User" wahrscheinlich schnell uninteressant wird. Hat irgendwer eine Lösung, um dieses Makro zu verkürzen? Wichtig dabei: Nur die ersten 13 Seiten und auch nur einseitig, nicht doppelseitig. Vielen Dank schon mal
Gruß Mario

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub TabDrucken() 'hier von 1 bis 13 Dim loX As Long Application.ActivePrinter = "\\SW020910.europe.bmw.corp\secure auf Ne02:" For loX = 1 To 13 Worksheets("Tabelle" & loX).PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Next End Sub

Hallo nochmal,
so funktioniert es leider nicht. Habs probiert und ein Kollege von mir auch. Das mit dem einseitigen Druck habe ich jetzt über die Admin-Einstellungen am Drucker lösen können aber da es sich bei dem Drucker um einen Drucker mit Kartenlesegerät für die Mitarbeiterausweise handelt, dauert es eine Ewigkeit, bis die 13 Druckaufträge vom PC weggeschickt werden. Da die Tabellenblätternamen variabel sind (je nach Bereich), habe ich die Tabellenblätter auf "Worksheets" umgetauft. So hat die Benennung der Tabellenblätter keinen Einfluss auf meine ganzen Makros.
Ich brauche jetzt nur noch diesen einen Tipp, wie ich meine Worksheets von 1-13 selektieren und gemeinsam an den Drucker senden kann, so dass nicht alle einzeln geschickt werden. Um Hilfe wäre ich mega dankbar. Mit diesem letzten Schritt könnte ich das 8-wöchige Projekt endlich beenden. Bin um jeden Tipp dankbar. Gruß Mario

Beliebteste Forumthreads (12 Monate)

Makro für Druck verkürzen (HILFE)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread