Delphi - 通过InternetExplorer Ole Object打印XML文档

Question

我想使用OleObject在Delphi中打印XML文档。我的代码：

var
  ie : OleVariant;
begin  
  ie := CreateOleObject('InternetExplorer.Application');
  ie.Navigate('doc.xml');
  ShowWindow(frmGlowna.ie.HWND, SW_SHOWMAXIMIZED);
  ie.Visible := True;
  while ie.QueryStatusWB( OLECMDID_PRINT) <> OLECMDF_SUPPORTED + OLECMDF_ENABLED do
    Application.ProcessMessages;
  ie.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,OleVariant(VarAsType($02, varSmallint)), vOut);
  ie.Quit;
  ie := Unassigned;
end;

行：

ie.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,OleVariant(VarAsType($02, varSmallint)), vOut);

执行打印命令并等待完成。

一切正常，只要程序不再运行或同时运行两次相同的程序。

我得到了不同的错误：

  

灾难性的失败

或

  

调用的对象已与其客户端断开连接

请帮忙。