How to detect Print command has finished in TWebBrowser?

Question

procedure TForm1.Button1Click(Sender: TObject);
var 
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.Navigate(\'http://www.google.com\');
  while WebBrowser1.ReadySta         


        

Answer 1

The print job is spooled and outputted to the printer driver by the OS in the background. The WebBrowser does not tell you when it is finished. ExecWB() exits once the print job has been queued. You would have to monitor the printer queue directly to know what it is doing.