Foros Club Delphi - imprimir html

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - imprimir html (https://www.clubdelphi.com/foros/showthread.php?t=56862)

lina maria

29-05-2008 16:46:36

imprimir html

hola, estoy trabajando con delphi7 y con los componentes qreport y estoy intentando imprimir una pagina html cuya ruta tengo almacenada en una bd de interbase, agradezco si pudieran orientarme como conseguir esto, de antemano muchas gracias por su colaboracion.

cHackAll

29-05-2008 17:28:38

Código Delphi [-]uses ComObj;

procedure PrintPage(Address: string);
var ie: Variant;
begin
 ie := CreateOleObject('internetexplorer.application');
 ie.Navigate(Address);
 while ie.Busy do Sleep(1000);
 ie.Document.ExecCommand('print');
 ie.Quit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PrintPage('www.clubdelphi.com'); // obtienes la direccion, y la abres e imprimes
end;

lina maria

29-05-2008 23:26:05

oye gracias por tu respuesta, intente como me dices pero ahora tengo otra duda, es que necesito ademas de imprimir la pagina que esta en un webbrowser imprimir una imagen y un texto en un label,podrias ayudarme con esto, te agradezco enormemente.

cHackAll

30-05-2008 01:17:27

Añadele una linea como la siguiente;

Código:

procedure PrintPage(Address: string);

var ie: Variant;

begin

 ie := CreateOleObject('internetexplorer.application');

 ie.navigate(Address);

 while ie.busy do Sleep(1000);

 ie.document.body.innerhtml := ie.document.body.innerhtml + '<div style="left:0px;top:0px;position:absolute"><br><br><img src="C:/windows/Zapotec.bmp"><br>HOLA, esta es una prueba<br><br></div>';

 ie.document.execcommand('print');

 ie.quit;

end;

PD; no uso las etiquetas [delph¡] porque no muestra el contenido html.

Saludos

La franja horaria es GMT +2. Ahora son las 20:03:50.