alle Excel-Dateien eines Ordners drucken
16.05.2006 08:53:56
stefanseevetal
Ich möchte per Button einen Makro ausführen, der alle Datein des Verzeichnisses druckt. Ich habe auch schon etwas gestöbert und folgenden Code gefunden. Es wird kein Fehler ausgeworfen, wenn ich den Button betätige, aber es passiert auch nichts?
Sub AlleDrucken()
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
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
ERRORHANDLER:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Ich hab den Code in ein Modul gepackt und es basMain genannt und dann einen _Button erstellt und den Makro zugewiesen. Ist das so richtig?
Vielen Dank und Gruß,
Stefanseevetal