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;