HTML Datei drucken

[Metallicwar]

Hab's folgendermaßen gelöst:
Kopier mir zunächst die HTML Datei, lösch den Zeilenabschnitt mit dem Refresh raus und ruf dann die HMTL Seite über den Webbrowser auf, dann funktionierts, wie gewünscht.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Pfad: String;
  strlst: TStringList;
begin
  strlst := TStringList.Create;
  Pfad := ExtractFilePath(paramstr(0));
  try
    CopyFile(PChar(Pfad+'index.html'), PChar(Pfad+'index_print.html'),False);
    strlst.LoadFromFile(Pfad+'index_print.html');
    strlst.Text := StringReplace(strlst.Text, '<meta http-equiv="refresh" content="30">', '', [rfReplaceAll]);
    strlst.SaveToFile(Pfad+'index_print.html');
  finally
    strlst.Free;
  end;
  WebBrowser1.Navigate(Pfad+'index_print.html');
end;


procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if ParamCount > 0 then
    Webbrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER)
  else
    WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER);
end;

Danke für eure Mithilfe !!!

MfG David