Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How do you print all worksheets in a file without opening the fil.
I have a folder with about 30 files in it which all have more than one
worksheet attached. Is is possible to print all the worksheets in all the files from the folder? Thanks |
#2
|
|||
|
|||
Hi timmtamm
Try this for all files in the folder C:\Data It will print the second sheet of each file. Copy the code in a normal module in a workbook that is not in the folder C:\Data. Open a new workbook Alt-F11 InsertModule from the menu bar paste the sub in there Alt-Q to go back to Excel If you do Alt-F8 you get a list of your macro's Select "TestFile1" and press Run Sub TestFile1() Dim basebook As Workbook Dim mybook As Workbook Dim FNames As String Dim MyPath As String Dim SaveDriveDir As String SaveDriveDir = CurDir MyPath = "C:\Data" ChDrive MyPath ChDir MyPath FNames = Dir("*.xls") If Len(FNames) = 0 Then MsgBox "No files in the Directory" ChDrive SaveDriveDir ChDir SaveDriveDir Exit Sub End If Application.ScreenUpdating = False Do While FNames < "" Set mybook = Workbooks.Open(FNames) mybook.PrintOut mybook.Close False FNames = Dir() Loop ChDrive SaveDriveDir ChDir SaveDriveDir Application.ScreenUpdating = True End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "timmtamm" wrote in message ... I have a folder with about 30 files in it which all have more than one worksheet attached. Is is possible to print all the worksheets in all the files from the folder? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print all charts in a workbook (multiple worksheets) | Charts and Charting in Excel | |||
Print several worksheets at once with fewer pages | Excel Discussion (Misc queries) | |||
Opening CSV file in Excel 97 | Excel Discussion (Misc queries) | |||
Add a default location for print to file in Excel. | Excel Discussion (Misc queries) | |||
Print Workbook Without Page Breaks Between Worksheets | Excel Worksheet Functions |