automatic printing

[jv]

Good day to all,

I have a this worksheet where all the engineering
equipment files are listed, totaling about 800 of them. On
a daily basis i have to open about 40 these files and
print it and an additional 70 files during weekends.

Is it possible to just "click on these files from the
list" and it will automatically print ( a sort of macro
staff ).

This is just a sample of my list.

1. A-06-B-PU1 616. A-06-FCU15 731. A-06-B-PU2
2. A-06-CH1-P 617. A-06-FCU17 732. A-06-EF7
3. A-06-CH2-P 618. A-06-FCU7 733. A-06-FCU12
4. A-06-CH3-P 619. A-06-FCU9 734. A-06-FCU2

For your kind assistance.

Thanks and regards.


jv

 

[Don Guillett]

Here is a sub posted by Ron DeBruin. You may? have to change the
"msoFileTypeExcelWorkbooks" to ".xls"
Just put the files to be printed in the chosen directory, ie: "C:\40files"
or "C:\70files"

Sub TestFile1()
Dim i As Long
Dim WB As Workbook
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "C:\Data"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Set WB = Workbooks.Open(.FoundFiles(i))
WB.PrintOut
WB.Close False
Next i
End If
End With
Application.ScreenUpdating = True
End Sub

 

[jv]

Don,

Thank you so much for the info., i'll try to apply this
macro tomorrow in the office. I'll let you know of the
development.

jv