Print internet pages through Word with macro.

[Scott S]

I'd like to create a macro that will open a page in Internet Explorer,
print it (or copy the text back to Word), and then move on to the next
page. I look at about 10 pages each morning (the web address is
constant) and would like to automate this process. Anyone have any
good ideas?

Thanks,

Scott
Dallas, TX

 

[Mark Baird]

Modify the following to fit your needs

Mark Bair

Sub PrintPages(WebPage as String

Dim oBrowser As SHDocVw.InternetExplore
Set oBrowser = New SHDocVw.InternetExplore

With oBrowse

.Visible = Fals
.Navigate WebPage

D
' Loop until the entire page is loaded then print
Loop Until .ReadyState = READYSTATE_COMPLET

.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSE

End Wit

End Sub

 

[Scott S]

Thanks for the help Mark, but I think the code is a little above me -
can't get it to work. I'll keep trying to figure it out.

Thanks.

Scott S.
Dallas TX