Printing the information within a number of files without opening them all individually

[splash]

Hi all

I have an issue that I would be very appreciative of your help with:

I have a large number of excel files with a standard worksheet in a standard layout. I need to print each of these workbooks - can I do this without opening all the files individually?

Any assistance with this would be very much appreciated

Thanks a lot in advance
Splash

 

[jbeaucaire]

They will still need to be opened to be printed, but you don't have to do it manually.

Option Explicit

Sub OpenPrintAllInFolder()
Dim wbToPrint As Workbook   'this will vary as each wb is opened
Dim shName As String        'the string holding the name of the sht to print
Dim fName As String
Dim fPath As String         'the folder that holds the files

shName = "Invoice"          'change this to match the sheet to print
fPath = "C:\2011\"          'don't forget the final \ in this path string

On Error Resume Next
Application.ScreenUpdating = False

fName = Dir(fPath & "*.xls")    'get the first filename

Do While Len(fName) > 0         'loop until no more filenames are found
    
    Set wbToPrint = Workbooks.Open(fPath & fName)
    Sheets(shName).PrintOut     'print the specified sheet
    wbToPrint.Close False       'close, no changes
    fName = Dir                 'get next filename

Loop
    
Application.ScreenUpdating = True
End Sub