Printing multiple (selected) workbooks

[markx]

Hello guys,

I was checking the web (and found nothing) for a macro that would allow me
to print multiple workbooks, a bit like with the "right-click/print"
function in MS Explorer. This function has however two drawbacks:
- prints only the first worksheet (and not the total workbook)
- opens the file (so it's slower), and - very often - "unnecessarily" asks
if I want to save the file before closing and opening the next one.

Do you know how should such an 'enhanced' macro look like? Thanks for any
suggestions.
Regards,

Mark

 

[Bernie Deitrick]

Mark,

Sub PrintAllSheetsInUserSelectedFiles()
Dim FileArray As Variant
Dim myBook As Workbook
Dim mySht As Worksheet

FileArray = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(FileArray) Then
For i = LBound(FileArray) To UBound(FileArray)
Workbooks.Open FileArray(i)
Set myBook = ActiveWorkbook
For Each mySht In myBook.Worksheets
mySht.PrintOut
Next mySht
myBook.Close False
Next i
End If
End Sub

HTH,
Bernie
MS Excel MVP