viajero2015
24-10-2003, 23:25:28
Hola amigos estoy exportando un reporte hecho con quickreport, bien lo quiero exportar, y cuando el complidaor pasa por esta linea
aHTMLFilt := TQRHTMLDocumentFilter.Create('d:\gecyt\Report.html'); me pide la unit qrprntr.pas, y ademas no me reconoce algunas propiedades como
aHTMLFilt.MultiPage := true;
y otras mas.
procedure Tfrmenviocorreo.exportToHtml();
var aHTMLFilt : TQRHTMLDocumentFilter;
begin
LFromMail.Caption:='Exportando factura a html';
CustomerData.QueryEmpresas.Open;
aHTMLFilt := TQRHTMLDocumentFilter.Create('d:\gecyt\Report.html');
{ahtmlfilt.SetHTMLBody( clAqua, 'web pics\pine.gif', 'alink=”red”' );}
aHTMLFilt.TransparentTextBG := true;
aHTMLFilt.PictureDir := 'Web pics';
aHTMLFilt.MultiPage := true;
aHTMLFilt.PageLinks := false;
frmreportempresas.QRPempresa.ExportToFilter( aHTMLFilt );
CustomerData.QueryEmpresas.close;
aHTMLFilt.free;
end;
alguien me podra ayudar en esto me urge.
gracias de antemano TOMAS
aHTMLFilt := TQRHTMLDocumentFilter.Create('d:\gecyt\Report.html'); me pide la unit qrprntr.pas, y ademas no me reconoce algunas propiedades como
aHTMLFilt.MultiPage := true;
y otras mas.
procedure Tfrmenviocorreo.exportToHtml();
var aHTMLFilt : TQRHTMLDocumentFilter;
begin
LFromMail.Caption:='Exportando factura a html';
CustomerData.QueryEmpresas.Open;
aHTMLFilt := TQRHTMLDocumentFilter.Create('d:\gecyt\Report.html');
{ahtmlfilt.SetHTMLBody( clAqua, 'web pics\pine.gif', 'alink=”red”' );}
aHTMLFilt.TransparentTextBG := true;
aHTMLFilt.PictureDir := 'Web pics';
aHTMLFilt.MultiPage := true;
aHTMLFilt.PageLinks := false;
frmreportempresas.QRPempresa.ExportToFilter( aHTMLFilt );
CustomerData.QueryEmpresas.close;
aHTMLFilt.free;
end;
alguien me podra ayudar en esto me urge.
gracias de antemano TOMAS