Macros for Printing multiple workbooks

[leavitttown]

Is there a way to write a macro that will print out multiple workbooks
contained in a common folder without having to open up each workbook
individually?

Thanks in advance.

 

[Guest]

Have a macro open them for you:

Sub Printbooks()
Dim sName as String, bk as Workbook
sname = dir("C:\Myfolder\*.xls")
do while sName <> ""
set bk = workbooks.Open("C:\Myfolder\" & sName)
bk.Printout
bk.close Savechanges:=True
sName = dir
Loop
End sub

 

[leavitttown]

Thanks for the reply. This should work