Utilizar el control del web browser en lugar de otro
WB.Visible=False
WB.Navigate app. Trayectoria y “\ rc.htm”
Hacer mientras que WB.ReadyState<4> DoEvents
Lazo
'O aún mejorar - sin el archivo:
'WB.Navigate “about.blank”
“Hacer el whilw WB.ReadyState<4> ” DoEvents
'Lazo
'WB.Document.body.innerHtml=YourFormattedHtmlString
WB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 1)
'OLECMDID_PRINT = 6
'OLECMDEXECOPT_DONTPROMPTUSER = 2
'OLECMDEXECOPT_PROMPTUSER = 1