Delphi-PRAXiS - Delphi HTML Datei ausdrucken?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi HTML Datei ausdrucken? (https://www.delphipraxis.net/40121-html-datei-ausdrucken.html)

HTML Datei ausdrucken?

Mit der HTML10 Unit bin ich gerade dabei, eine HTML Datei aus Delphi raus zu erzeugen. Nun möchte ich diese automatisiert ausdrucken. Bloss wie geht das? Ich stelle mir vor, dass Delphi die HTML Datei erzeugt, dann den Browser öffnet, dann den Druckerdialog und danach wieder alles schliesst, wenn der Druck abgeschickt wurde.

Re: HTML Datei ausdrucken?

Nuja WinAPI ist es nicht...

Einfachste Lösung:

Webbrowser auf Formular platzieren und folgendes ausführen.

(Pseudo-Code aus dem Kopf also nicht getested)

Code:

			procedure druckmich (html:string);

var

  vaIn, vaOut: OleVariant;

begin

  WebBrowser1.Navigate('about:blank');

  OleVariant(WebBrowser1.Document as IHTMLDocument2).Clear;

  OleVariant(WebBrowser1.Document as IHTMLDocument2).Write(html);

  OleVariant(WebBrowser1.Document as IHTMLDocument2).Close;

  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);

end;