I use the following VBA code to print out all files in a folder in MS Word
instantly in the background without opening the documents. When I tried to
use it in MS Excel I received a message indicating that the Application
object in Excel doesn't support the PrintOut method. Is there a way to do
this in Excel? Thanks for any help.


With Application.FileSearch
..FileName = "*.*"
..LookIn = CurDir
If .Execute(msoFileFindSortbyFileName, _
SortOrder:=msoSortOrderAscending) 0 Then
For I = 1 To .FoundFiles.Count
Application.PrintOut FileName:= .FoundFiles(I)
Next I
End If
End With