Web browsersteuerung anstatt verwenden
WB.Visible=False
WB.Navigate APP. Weg u. „\ rc.htm“
Tun während WB.ReadyState<4> DoEvents
Schleife
'Oder sogar - ohne Akte verbessern:
'WB.Navigate „about.blank“
„Whilw WB.ReadyState“<4> DoEvents tun
'Schleife
'WB.Document.body.innerHtml=YourFormattedHtmlString
WB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 1)
'OLECMDID_PRINT = 6
'OLECMDEXECOPT_DONTPROMPTUSER = 2
'OLECMDEXECOPT_PROMPTUSER = 1