[kaller]

Hiya!

Folgendes:
Ich habe ein Verzeichnis mit mehreren EXCEL-Dateien.
Diese Dateien beinhalten dazu mehrere Tabellenblätter.

Jetzt möchte ich alle Dateien in diesem Verzeichnis mit allen zugehörigen Tabellenblättern ausdrucken.

Wie ist das machbar?

Ein Makro zum Drucken aller Dateien in einem Verzeichnis habe ich schon - das mag aber nicht zusammen mit dem Ausdruck aller Blätter funktionieren; es wird immer nur das erste Blatt gedruckt.
Ich hatte auch schon mal was, wo man per Makro alle Blätter einer Datei ausdrucken konnte (nicht über den Drucken-Dialog mit "gesamte Arbeitsmappe") - nur die Kombination klappt nicht.

Jede Hilfe, Idee wird wie immer dankbar entgegen genommen.

Bis dahin...
Kaller

[bagira]

alle dateien markieren und dann per rechtsklick drucken auswählen.

[Peter Schirmer]

Probiere diesen Code; er durchläuft alle Blätter und sendet sie zum Standarddrucker.

Sub Alle_Blätter_drucken() Dim I As Integer Dim Ende As Integer Ende = ActiveWorkbook.Sheets.Count For I = 1 To Ende Worksheets(I).PrintOut Next I End Sub

[kaller]

Hiya!

Zitat von bagira alle dateien markieren und dann per rechtsklick drucken auswählen.

Danke, aber das kannte ich auch schon.
Es funktioniert nur soweit, dass dann alle angewählten Dateien ausgedruckt werden, von diesen aber nur das jeweils zuletzt aktive Tabellenblatt.
Ich benötige das in der Form, dass von allen Dateien alle Blätter ausgedruckt werden und nicht jeweils nur eins.

Bis dahin...
Kaller

@PeterSchirmer: Überschneidung beim Posten, das werde ich probieren.

[kaller]

Hiya!

Zitat von Peter Schirmer Probiere diesen Code; er durchläuft alle Blätter und sendet sie zum Standarddrucker.

Ich habe das wie folgt in einer neuen Tabelle kombiniert.
Zelle A1 enthält in diesem Fall den Pfad zu den auszudruckenden Dateien.

Sub AlleDruckenneu() Dim FileCounter As Integer Dim I As Integer Dim Ende As Integer Application.ScreenUpdating = False Application.EnableEvents = False With Application.FileSearch .LookIn = Range("A1").Value .FileType = msoFileTypeExcelWorkbooks .Execute For FileCounter = 1 To .FoundFiles.Count Workbooks.Open .FoundFiles(FileCounter), False Ende = ActiveWorkbook.Sheets.Count For I = 1 To Ende Worksheets(I).PrintPreview Next I ActiveWorkbook.Close savechanges:=False Next FileCounter End With End Sub

Anscheinend habe ich da aber einen Denkfehler drin, denn es funktioniert so nicht. Es werden Dateien durchlaufen, die angezeigten Blätter sind aber immer die Startseite der Datei, wo ich das Makro starte.

Bis dahin...
Kaller

[Peter Schirmer]

Zitat von kaller Anscheinend habe ich da aber einen Denkfehler drin, denn es funktioniert so nicht. Es werden Dateien durchlaufen, die angezeigten Blätter sind aber immer die Startseite der Datei, wo ich das Makro starte.

Bei funktioniert es problemlos. Ich hatte zwei Dateien, die ich mir habe dann angezeigen lassen. Es tauchte alles von a bis c (Datei Mappe1.xls) und von a2 bis c2 (Datei Mappe2.xls) auf.

Hast du vielleicht einen Codeschnippsel, der aus irgendeinem Grund zur geöffneten Datei zurückspringt?

[kaller]

Hiya!

@Peter Schirmer:
Den Code des Makros habe ich oben angegeben. Nur funktioniert das bei mir irgendwie nicht.
Welchen hast Du denn benutzt?
Bei mir ist ja der von Dir in das Makro integriert worden - also der Anteil für die Blätter.

Irgendwo ist noch was vergraben, was da Mecker macht.

Bis dahin...
Kaller

P.S.: Ich nutze EXCEL 2003.

[Peter Schirmer]

Ich habe es aus Posting #5 einfach übernommen und probiert. Lief gut.

[kaller]

Hiya!

Zitat von Peter Schirmer Ich habe es aus Posting #5 einfach übernommen und probiert. Lief gut.

Na prima.
Mein eigener, zusammengeschusterter Code läuft woanders, aber nicht bei mir.
Das soll ich nun verstehen?

Ich werde wohl nochmal was ausprobieren.

Danke jedenfalls für den Test und die Unterstützung.

Bis dahin...
Kaller

[Peter Schirmer]

Keine Ursache. Ich wünsche weiterhin viel Erfolg. Sag' mal Bescheid, woran es lag.