Office: Gesamte Mappe drucken.

Guten Tag

Meine Kollegen und ich müssen täglich eine Excelmappe mit mehreren Blättern ausdrucken.

Da bei Excel standardmässig immer nur das aktuelle Blatt gedruckt wird, möchte ich das gerne ändern - wenn es geht mit einem VBA code.

Es gibt ja ein "Application.Dialogs(xlDialogPrint)". Was muss ich weiter eingeben? Ich nehme an dass ich mal mit

Private Sub Workbook_BeforePrint(Cancel As Boolean)

beginne.

Danke für die Auskunft

Massimo :-D

 

Hallo Massimo,

zeichne folgendes mit dem Makrorecorder auf. Alle Tabellenmarkieren und Schalter Druck und danach nur eine Tbaelle markieren.

Gruß Hajo

 

Hallo Hajo

Auf diesen Gedanken bin ich auch gekommen und mir hat der Makrorekorder folgenden Code aufgezeichnet:

Code:

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets(Array("GF + ZD", "B+C", "B+H", "GA", "MD", "Namen Tel ")).Select
    Sheets("GF + ZD").Activate

Somit wären dann alle Blätter in einem Array. Das Drucken, bzw, der Druckdialog wurde nicht aufgezeichnet. Ich möchte ja dann im Druckdialog "gesamte Arbeitsmappe" wählen.

Kommt irgendwo

Code:

Application.Dialogs(xlDialogPrint)

zum einsatz?

 

du hast den Druckschalter nicht geklick, ich sehe dafür den Code nicht in Deinem Beitrag. Ich habe nichts davon geschrieben den Druckdialog aufzurufen.

 

entschuldigung dass ich dir erst jetzt antworte
es hat funktioniert. vielen dank!

gruss

massimo