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
Bookmarks