Function IEPrintDialog($printdoc,optional $dialog)
   if $dialog<>1
      $dialog=2
   endif
   $objIE = CreateObject("InternetExplorer.Application")
   if @error=0
      $objIE.Visible = 0
      $objIE.Navigate($printdoc)
      Do
         Sleep 0.1
      Until $objIE.ReadyState = 4
      if $objIE.QueryStatusWB(6) >= 3
         $objIE.ExecWB(6,$dialog,2,0)
;         Do
;            Sleep 0.1
;         Until $objIE.PrintTemplateTeardown(pDisp)=1
         sleep 5
         $objIE.Quit
      else
         $objIE.Quit
         exit 1
      endif
   else
      exit @Error
   endif
   exit 0
EndFunction