wokbooks can contain any number of sheets
With sorting I mean: in a workbook sheets are sorted alphabetically (tabs
contain names)... so when printed it would be nice getting the sheets in
reverse order.
CU
and thanks
JP
"Ron de Bruin" schreef in bericht
...
Hi Jean-Paul
Files are opened only when entering a password (DBI in my case)
See the Tips on this page
http://www.rondebruin.nl/copy3.htm
In every workbook there is a kind of template (always sheet1). I don't
need
to print this sheet... can I ommit this.
How many sheets have each workbook?
Is this the same in every workbook?
Last but not least. Can I print workbooks in reverse order so no manual
Sort the files in the folder first
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Jean-Paul De Winter" wrote in message
...
this is perfect...
Some remarks though
Files are opened only when entering a password (DBI in my case) can this
be
implermented too??
In every workbook there is a kind of template (always sheet1). I don't
need
to print this sheet... can I ommit this.
Last but not least. Can I print workbooks in reverse order so no manual
sorting is needed after the printing process?
Thanks
JP
"Ron de Bruin" schreef in bericht
...
Hi Jean-Paul
Try this for the folder C:\Data
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 < ""
If FNames Like "*November*" Then
Set mybook = Workbooks.Open(FNames)
mybook.PrintOut
mybook.Close False
End If
FNames = Dir()
Loop
ChDrive SaveDriveDir
ChDir SaveDriveDir
Application.ScreenUpdating = True
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Jean-Paul De Winter" wrote in message
...
Hi,
I have about 20 files containing te word "November"
Each file has an avarage of 15 sheets.
I want to print this all out... Is there a command to make the
computer
pick
all files and print all sheets automatically without having to open
the
all
individually???
Thanks