Waorkbooks Drucken makro geht nicht
09.05.2008 14:03:10
volker
ich hab Excel 2007 drauf, auf 2003 ging noch folgendes makro.
Was muss ich machen? dass das weiterin passt?
Vielen Dank Gruss volker
Sub AlleDruckenB2()
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Application.FileSearch
.LookIn = Range("B2").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
Anzeige