Druckreihenfolge
27.11.2007 10:27:00
Melanie
folgende Frage beschäftigt mich. Ich möchte gerne per VBA bestimmte Seiten eines Berichtes ausdrucken. Momentan listet mein Code diese Seiten einfach nacheinander auf:
Sheets("Tabelle1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Um das Ganze etwas übersichtlicher zu gestalten würde ich den Code gerne wie folgt umbauen:
Sheets(Array("Tabelle1", "Tabelle3", "Tabelle2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Das funktioniert so weit auch. Allerdings werden die Seiten in der Reihenfolge gedruckt, wie sie in der Datei stehen und das entspricht nicht der Druckreihenfolge. Ich möchte die Datei nicht entsprechend umbauen, da noch andere Personen damit arbeiten und diese dann "nichts mehr finden".
Hat jemand eine Idee, wie ich mein Problem lösen kann?
Im Voraus besten Dank für Eure Vorschläge!
Grüße, Melanie