Open specific web page with IE, then print and close. 1

[JMCONNOR]

I have a module that successfully opens IE and brings up the desired web page. What I need to do now is print the page to the default printer and close IE from within the module. The user never even needs to see the page on the screen.

The pertinent lines:

Set IE = CreateObject("internetexplorer.application")
With IE
    .Navigate strURL (where strURL = the page's url)
    rem put print here
    rem close IE

 

[goodfela26]

Dim IE
Set IE = CreateObject("internetexplorer.application")
With IE
.Navigate "

http://www.google.com"

Do Until IE.ReadyState = 4 'READYSTATE_COMPLETE
DoEvents
Loop

.ExecWB 6, 2, 2, 0 'OLECMDID_PRINT,OLECMDEXECOPT_DONTPROMPTUSER,PRINT_WAITFORCOMPLETION,0

.Quit
End With
Set IE = Nothing

---------------------------------------
Bob Beck
Systems Administrator

 

[Zion7]

Nice Work Bob! *

 

[JMCONNOR]

Thanks, This works beautifully. I have a couple projects That will benefit from this.

 

[goodfela26]

You're welcome. I can't take credit for it, though. I found it on the internet a few years ago for another app I was working on.

In any case, I'm glad it I could help.

---------------------------------------
Bob Beck
Systems Administrator