Hi,

this code runs nice and shows web pages, but I do not know whether it send something to print... I am nnot able to find PDF files anywhere.

Anyone to help to solve this?

------
Sub PrintWebPage()
Dim sht As Worksheet
Dim rng As Range
Dim cll As Range
Dim exp As Object

Set sht = ThisWorkbook.Worksheets("Sheet1")
Set rng = sht.Range(sht.Cells(1, 1), sht.Cells(65536, 1).End(xlUp))

Set exp = CreateObject("InternetExplorer.Application")

exp.Visible = True

For Each cll In rng.Rows
exp.Navigate cll.Value
Do Until exp.ReadyState = 4
DoEvents
Loop
exp.ExecWB 6, 2

Next cll
exp.Quit
Set exp = Nothing
End Sub
-------

Regards
Ronny