<code>Private Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Call ShellExecute(Me.hWnd, vbNullString, _
  "rundll32.exe", "mshtml.dll,PrintHTML " & _
  strDocument, "", vbHide)</code>