HTML Datei drucken

**Bummi**

Du kannst es versuchen mit

Delphi-Quellcode:

			ShellExecute( 0, 'printto', PChar(DocumentName), PChar(PrinterName), nil,SW_HIDE);

res := ShellExecute(

  0,

  'printto',

  //PChar('C:\temp\test.htm'),  >> funktioniert bei mir nicht

  PChar('C:\temp\test.xls'),    // funktioniert

  PChar('PDF24'),

  nil,

  SW_HIDE

);

**Metallicwar**

Hat bei mir auch nicht funktioniert ...

Will's jetzt mit Hilfe des TWebbrowser lösen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

var

  Pfad: String;

begin

  Pfad := ExtractFilePath(paramstr(0));

  WebBrowser1.Navigate(Pfad+'index.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;

Funktioniert auch, nur will er jetzt garnicht mehr aufhören zu drucken. Ist eine andere Procedure zu verwenden, oder was läuft hier falsch?

Nachtrag: Mir ist aufgefallen, dass er die HTML Seite im Webbrowser irgendwie ständig aktualisiert und deshalb auch ständig erneut druckt ... jemand ne Idee weshalb?!?
Problem ist folgendes:
Die HTML Seite wird alle 30 Sekunden neu geladen ... Problem hierbei ist, ich krieg die HTML Datei nur übergeben, heißt ich darf nichts an ihr verändern .

markieren

Code:

			<HTML><HEAD><TITLE>ZMI - Statustableau</TITLE><meta http-equiv="refresh" content="30">
		

**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.

zusammenfalten · markieren

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

HTML Datei drucken

AW: HTML Datei drucken

AW: HTML Datei drucken

AW: HTML Datei drucken

Forumregeln