Attribute VB_Name = "Module5"
Option Explicit

Sub PrintWebPage(URL As String)
'c:\windows\system\
MsgBox URL
    MsgBox "rundll32.exe " & GetWinSysDir & "\MSHTML.dll,PrintHTML " & URL
    Shell "rundll32.exe " & GetWinSysDir & "\MSHTML.dll,PrintHTML " & URL, vbNormalFocus

End Sub