Employer la commande de web browser à la place
WB.Visible=False
WB.Navigate $$etAPP. Chemin et « \ rc.htm »
Faire tandis que WB.ReadyState<4> DoEvents
Boucle
'Ou même améliorer - sans dossier :
'WB.Navigate « about.blank »
« Faire le whilw WB.ReadyState<4> » DoEvents
'Boucle
'WB.Document.body.innerHtml=YourFormattedHtmlString
WB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 1)
'OLECMDID_PRINT = 6
'OLECMDEXECOPT_DONTPROMPTUSER = 2
'OLECMDEXECOPT_PROMPTUSER = 1