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]]

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]

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