Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

druckt nicht automatisch alle xls dateien

druckt nicht automatisch alle xls dateien
03.03.2004 12:56:10
Björn
Hallo zusammen,
habe hier im Archiv einen Code gefunden, um alle xls Dateien aus
einem Ordner auszudrucken.
Leider wird nur die erste xls Datei geöffnet und ausgedruckt.
Anstatt das die Datei geschlossen wird und die nächste geöffnet wird
bleibt das Makro nach dem ersten Druck stehen.
Wie kann ich alle Dateien automatisch drucken ?
Ich hoffe auf schnelle Hilfe
Tschü, Björn
Public

Sub druck()
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Application.FileSearch
.LookIn = Range("B1").Value
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(iCounter), False
ActiveWorkbook.PrintOut
Active.Workbook.Close savechanges:=False
Next iCounter
End With
ERRORHANDLER:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: druckt nicht automatisch alle xls dateien
03.03.2004 13:14:38
xXx
Hallo,
scheint in Ordnung, der Code.
Als Versuch: Schmeiß mal .Filetype=msoBlaBlaBla raus und schreib .FileName="*.xls" rein.
Vielleicht hilft's ja.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!
AW: druckt nicht automatisch alle xls dateien
03.03.2004 14:16:37
Björn
Hallo Udo,
danke für das rasche Feedback.
Habe dein Vorschlag ausprobiert und es ist das gleiche wie vorher.
Nach dem öffnen und drucken der ersten Datei ist schluss.
Wieso springt er in der for schleife nicht auf icounter = 2 ?
Björn
Anzeige
AW: druckt nicht automatisch alle xls dateien
03.03.2004 14:36:25
xXx
Hallo,
ich Dummbatz. Dein Code ist doch falsch.
Du hast geschrieben
Active.Workbook.Close.
Es muss natürlich
ActiveWorkbook.Close
heißen. Da ist ein Punkt zuviel.
Gruß aus'm Pott
Udo
AW: druckt nicht automatisch alle xls dateien
03.03.2004 15:01:05
Björn
Oh man,
danke !
Leider tut es jetzt überhaupt nicht mehr.
Mit dem Punkt hattest Du recht, aber warum in aller
Welt tut er jetzt garnicht mehr ?
Björn
weiß ich auch nicht...
03.03.2004 20:46:31
xXx
...lade doch mal die Tabelle hoch.
Gruß aus'm Pott
Udo
http://www.excelerator.de
P.S.Das Forum lebt auch von den Rückmeldungen an die Antworter.
Anzeige

178 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige