druckt nicht automatisch alle xls dateien
03.03.2004 12:56:10
Björn
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