imprimir html

[lina maria]

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]

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]

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]

Añadele una linea como la siguiente;

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