Makro: Alle Excel-Dateien im Ordner drucken
06.06.2006 11:18:02
stefanseevetal
Ich bastel seid längerem an einer Druckfunktion, bei der per Makro alle Excel-Dateien in einem Ordner gedruckt werden sollen. Habe dazu auch schon mal einen Beitrag gepostet, aber es funktioniert immer noch nicht so wie gewünscht.
Der folgende Code funktioniert, wenn ich die Datei mit dem Makro außerhalb des zu druckenden Ordner speichere, sie soll aber ebenfalls in dem Ordner sein und auch mitgedruckt werden. Wie kann ich das hinbekommen?
Hier, wie ich es bisher habe:
Sub AlleDrucken()
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Application.FileSearch
.LookIn = "O:\Formulare\Protokolle"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(iCounter), False
ActiveWorkbook.PrintOut
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
ERRORHANDLER:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Wie gesagt, so funktioniert es nur, wenn das Makro selber außerhalb des zu druckenden Ordners gespeichert ist.
Danke und Gruß,
Stefanseevetal
Anzeige