HTML Datei ausdrucken?

[JPSelter]

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.

[MartinA]

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;