Printing an entire folder...........

[Rick Land]

I was wondering if anyone knew how to print all the files
in a folder without opening each one, one at a time. We
keep a months worth of spreadsheets (about 30 files) in a
folder by month and year. It would be a lot more
convenient if I could just do something that would print
all the files in that folder.

Thanks............

 

[Earl Kiosterud]

Rick,

You can select the files in a folder window (use the Shift or Ctrl keys, or
drag a select box around them). Then right-click one and choose Print.

If you're in Excel's File - Open dialog, you do the same, except you use
Tools - Print. Right-click may not work.

Earl Kiosterud
mvpearl omitthisword at verizon period net

 

[JMay]

In a New Workbook, Worksheet..
Try: But edit below code to your specs before running....

Sub listthefiles()
Set fs = Application.FileSearch
With fs
..LookIn = "C:\My Documents\Temp"
..Filename = "*.xls"
If .Execute > 0 Then
ActiveCell = Range("A4")
For I = 1 To .FoundFiles.Count
ActiveCell.FormulaR1C1 = .FoundFiles(I)

ActiveCell.Offset(1, 0).Select
Next I
Else
End If
End With
End Sub

Let me know if you get it working..........
HTH