Sub Print_PDF_Test2()
'Need a reference to Microsoft Internet Controls
'for just testing
DF files will be placed in the local server.
Dim ObjIE As New InternetExplorer
'Set ObjIE = CreateObject("InternetExplorer.Application")
Dim cnsPDF_FILE As String
Dim i As Integer
i = 1
While Range("a" & i) <> ""
cnsPDF_FILE = Range("a" & i).Value
ObjIE.Navigate cnsPDF_FILE
ObjIE.Visible = True
Do While ObjIE.Busy = True: DoEvents: Loop
'The following line shows a setup dialog of Acrobat
'ObjIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
ObjIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
i = i + 1
Wend
End Sub