Office: Excel Druck-Button für mehrere Registerblätter?

Hallo Leute!

Hier mein Problem:

Ich habe meine Arbeitsmappe mit mehreren Arbeitsblättern. Ich würde gerne einen "Druckjob-Button" integrieren, der nach Klick alle Registerblätter auf einmal ausdruckt.

Ist dies möglich? Ich finde im Netz einfach nichts dazu...

Hier eine Auflistung:

Registerblätter:

STAND OB NEU - muss 1x ausdruckt werden
SCHNAPS - muss 2x ausgerduckt werden
LAGER - muss 2x ausgedruckt werden
DECKBLATT - muss 1x ausgedruckt werden

Wär echt super, wenn ich eine Antwort bekäme!

DANKE!

 

Hallo,

Copy & Paste aus einem Newsletter von SmartTools

Es gibt zwar weder einen Menübefehl noch eine Dialogfeldoption, mit der man das Drucken-Dialogfeld dauerhaft manipulieren könnte. Man kann allerdings VBA-Code schreiben, der diese Aufgabe erledigt. Damit beim Drucken standardmässig die "Gesamte Arbeitsmappe" ausgewählt ist, verfährt man wie folgt:

Lege eine neue Arbeitsmappe an und wechsel mit Alt+F11 in den Visual Basic-Editor.

Wähle das Menü EINFUEGEN-MODUL, sodass im Arbeitsbereich des Visual Basic-Editors ein neues Codefenster erscheint.

Gib die folgende Prozedur ein:

Sub MappeDrucken()
Application.Dialogs(xlDialogPrint).Show _
, , , , , , , , , , , 3
End Sub

Die VBA-Anweisung öffnet das Standarddialogfeld mit den Druckeinstellungen. Indem man dem zwölften Argument den Wert "3" zuweist, sorgt man dafür, dass die Option "Gesamte Arbeitsmappe" aktiviert ist. Leider kann man keine benannten Argumente verwenden, weshalb man mit den Kommas die komplette Argumentliste angeben muss. Nur auf die nachfolgenden Argumente kann man verzichten.

Hier zur Information alle Argumente des Drucken-Dialogs, wie Sie in der Online-Hilfe erwaehnt werden:

range_num, from, to, copies, draft, preview, print_what,color, feed, quality, y_resolution, selection, printer_text,print_to_file, collate

Für den Druckumfang ist das Argument "selection" zuständig: 1 = Markierung, 2 = Ausgewaehlte Blaetter, 3 = Gesamte Arbeitsmappe

Nun muss man dieses VBA-Makro dem normalen Druckbefehl zuweisen. Das erreicht man mit einer Ereignisprozedur, die automatisch beim Öffnen der aktuellen Arbeitsmappe ausgeführt wird.

Um eine entsprechende Prozedur einzugeben, doppelklickt man im Projekt-Explorer, der in einem Unterfenster am linken Rand des Visual Basic-Editors angezeigt wird, auf das Excel-Objekt "DieseArbeitsmappe". Falls es mehrere Objekte mit diesem Namen gibt, muss man den Eintrag im Projekt der aktuellen Arbeitsmappe verwenden - zum Beispiel "VBAProject (Mappe1)".

In das neue Codefenster gibt man die folgende Prozedur für das "Open"-Ereignis der aktuellen Arbeitsmappe ("Workbook") ein:

Private Sub Workbook_Open()
Dim cb As CommandBar
Dim ctl As CommandBarControl

Set cb = Application.CommandBars("Worksheet Menu Bar")
Set ctl = cb.FindControl(Id:=4, Recursive:=True)
ctl.OnAction = "MappeDrucken"
End Sub

Damit manipuliert man den Druckbefehl in der Standardmenüleiste ("Worksheet Menu Bar"). Der integrierte Befehl besitzt eine vorgegebene "ID" mit dem Wert "4". So muss man dem Menüelement nur noch mit der "OnAction"-Eigenschaft das Makro "MappeDrucken" zuweisen.

Damit Excel aber nicht immer mit den geänderten Druckeinstellungen arbeitet, setzt man den Druckbefehl beim Schliessen der aktuellen Arbeitsmappe auf die Standardwerte zurück. Dazu gibt man im Codefenster des Objekts "DieseArbeitsmappe" die folgende Prozedur ein:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cb As CommandBar
Dim ctl As CommandBarControl

Set cb = Application.CommandBars("Worksheet Menu Bar")
Set ctl = cb.FindControl(Id:=4, Recursive:=True)
ctl.Reset
End Sub

Kehre mit Alt+F11 zu Excel zurueck und speichere die Arbeitsmappe mit dem eben eingegebenen VBA-Code.

Schliesse die gespeicherte Datei und öffne sie sofort wieder, wobei man die Ausfuehrung von Makros natürlich zulassen muss.

Wenn man jetzt den Befehl DATEI-DRUCKEN aufruft, ist automatisch die Option "Gesamte Arbeitsmappe" eingestellt.

Das gilt für alle Excel-Dateien, die man im Anschluss öffnet. Erst wenn man die Datei mit dem oben aufgeführten Makrocode schliesst, kehrt Excel zur Standardeinstellung "Ausgewählte Blätter" zurück.