printing pdf of 218 closed xls files - (2) ?'s

Customer wants me to make pdfs of 218 of my xls files(Ultrasonic Inspection Test reports of weldments). I'm using Adobe Distiller so no problem printing to pdf.

1) Can this be done with VBA without manually opening each and every file and then printing to pdf?

2) If yes, Then
Should I set the security setting so that it doesn't stop_
and ask me to enable macros for each and every file?
End If

Found an answer to question #1 online,
Here is a macro written to open closed files (all in one folder) and then print, close, move to the next file....etc...

Option Explicit

Private Sub PrintAllWorkbooks()
Dim wb As Workbook
Dim ws As Worksheet
Dim MyFolder
Dim I As Long

Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False

MyFolder = GetFolder
If MyFolder = vbNullString Then
MsgBox "No folder selected, stopping procedure.", vbCritical
Exit Sub
End If

With Application.FileSearch
.NewSearch
.LookIn = MyFolder
.FileType = msoFileTypeExcelWorkbooks
.Execute

For I = 1 To .FoundFiles.Count
Set wb = Workbooks.Open(.FoundFiles(I))
For Each ws In wb.Worksheets
ws.PrintOut
Next ws
wb.Close
Next I
End With

Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Private Function GetFolder() As String
Dim ff As Object

Set ff = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please select a folder", 0, "C:\Documents and Settings\jwright\My Documents\NDT\UT Inspection\UT Reports\Florham Park 10-012\")
If Not ff Is Nothing Then
GetFolder = ff.Items.Item.Path
Else
GetFolder = vbNullString
End If

End Function

Here is the working xls file. This seems to work great. Just set your default printer to your pdf printer.

I haven't tried it with and files that have macros yet....so I will post back when I do and can answer my Question #2.

BTW, answer to question #2 is "yes", turn security off and allow it to enable macros...buzzes right along...I broke up the files into 25 per folder because I still had to accept each name that it gave the new pdf file. I got through all 218 in no time, plus 25 more of another report.

Was able to get this issue resolved and customer was happy....This thread is "Solved"

Kalpesh,

Welcome to the Forum, unfortunately:

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread. It makes sense to have a new thread for your question because a thread with numerous replies can be off putting & difficult to pick out relevant replies.