Use webbrowser control instead
WB.Visible=False
WB.Navigate app.Path & "\rc.htm"
Do while WB.ReadyState<4
DoEvents
Loop
'Or even better - without file:
'WB.Navigate "about.blank"
'Do whilw WB.ReadyState<4
' DoEvents
'Loop
'WB.Document.body.innerHtml=YourFormattedHtmlString
WB.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,1)
'OLECMDID_PRINT = 6
'OLECMDEXECOPT_DONTPROMPTUSER = 2
'OLECMDEXECOPT_PROMPTUSER = 1