Dim wrd 'As Word.Application
Dim doc 'As Word.Document
Dim EndWait 'As Double

If MsgBox ("This program illustrates how to automatically print a web page by automating Microsoft Word. BUT -- it will only work if you installed the HTML filters for Word and you have an internet connection! OK to continue?", vbOkCancel) = vbCancel Then Wscript.Quit

Set wrd = CreateObject("Word.Application")

'''''''''' Remove the below line if you don't want to watch Word 
wrd.Visible = True

'''''''''' Replace the web page with the one you want printed.
Set doc = wrd.Documents.Open("http://www.ericphelps.com/")

'''''''''' This is a messy kluge to give the page time to load
'''''''''' If you try to print before the page is loaded, Word crashes!
EndWait = Now + (30 / 86400) ' 30 second delay to let page load
Do Until Now > EndWait
Loop

'''''''''' Un-comment the below line if you want to use a printer
'''''''''' other than your default. If you specify a printer,
'''''''''' it must be one that is already installed on your system.
'wrd.ActivePrinter = "HP LaserJet III"

doc.PrintOut
doc.Close
wrd.Quit
Set wrd = Nothing