Print all .xls files in selected directory

Does anyone know of a way that i can create a macro that prints all .xls
files in a particular diretory?

Thanks


---
Message posted from http://www.ExcelForum.com/

Try:

Sub PrintAllinFolder()
Dim i As Long
Dim WB As Workbook
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents\MyFolderName"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() 0 Then
For i = 1 To .FoundFiles.Count
Set WB = Workbooks.Open(.FoundFiles(i))
WB.PrintOut
WB.Close SaveChanges:=False
Next i
End If
End With
Application.ScreenUpdating = True
End Sub


Feedback appreciated...
I use Excel - XP
Jim May


"LB79 " wrote in message
...
Does anyone know of a way that i can create a macro that prints all .xls
files in a particular diretory?

Thanks


---
Message posted from http://www.ExcelForum.com/

This works really well! Thank you!!!


---
Message posted from http://www.ExcelForum.com/