TWebbrowser, PDF und Drucken

[MaBuSE]

Zitat von MaBuSE:

In dem TWebBrowser ist ein PDF geladen.
(Ich seh es ja auf dem Bildschirm)
Trozdem druckts mit deiner Funktion nicht.
(Vieleicht bin ich ja auch nur zu blöd)
Hast Du einen Hinweis für mich?

Delphi-Quellcode:

...
procedure TForm1.wbNavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  istFertig := True;
end;
...
  wb := TWebBrowser.Create(ts);
  TControl(wb).Parent := ts;
  wb.Align := alClient;
  wb.OnNavigateComplete2 := wbNavigateComplete2;
  istFertig := False;
  wb.Navigate(ExpandFileName('Test.pdf'));
  while not istFertig do Application.ProcessMessages;
  wb.Document.QueryInterface(IID_IHtmlDocument2, Doc);
  if Doc <> nil then
  begin
    doc.execCommand('Print', true, null);
  end;
...

Ich habe das Problem nun gelöst:

Warum auch immer habe ich onNavigationComplete benutzt.
Ich verwende nun onDownloadComplete und warte danach noch eine Sekunde.
Dann klappts mit der "procedure PrintWebBrowser(WB: TWebBrowser);" (siehe Post weiter oben)

Es erscheint der Druckdialog.

Das funktioniert aber nur, wenn der TWebBrowser sichtbar auf einem Form ist.
Ich habe das nun wie folgt gelöst:
TWebBrowser ist nur 1 x 1 Pixel groß, aber sichtbar

Delphi-Quellcode:

procedure Wait(SleepTimeStr: string);
var
  EndTime : TDateTime;
begin
  EndTime := Now + StrToTime(SleepTimeStr);
  while Now < EndTime do Application.ProcessMessages;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  wb: TWebBrowser;
begin
  dlgDrucken := TdlgDrucken.Create(Application);
  dlgDrucken.Show;
  wb := TWebBrowser.Create(dlgDrucken.Panel1);
  TControl(wb).Parent := dlgDrucken.Panel1;
  wb.Width := 1;
  wb.Height := 1;
  wb.OnDownloadComplete := WebBrowser1DownloadComplete;
  ok := False;
  wb.Navigate(ExpandfileName('test.pdf'));
  while not ok do Application.ProcessMessages;
  Wait('00:00:01');
  PrintWebBrowser(wb);
  dlgDrucken.Free;
  dlgDrucken := nil;
end;