Hola, estoy intentando pasar un informe a pdf cargándolo primero desde el disco duro. desde un archivo .qrp. Si confecciono el informe y lo paso directamente a pdf funciona bien, pero si confecciono el informe, lo guardo a .qrp, y lo cargo de nuevo ya no exporta bien. Como sé que la exportación a pdf funciona bien entonces el problema está o en guardar el informe a .qrp o en cargar el archivo .qrp.
A ver si alguien ve en este código algo q esté haciendo mal. Gracias de antemano.
Código:
Procedure TFNGC3.GenerarInformeEncabezado(var numeroInforme:integer;usuarioInf:string;descrEmpresa:string;descrFoco:string);
var
informeEncabezado:TQREncabezado;
filtroPDF:TPsQRPDFFilter;
qrResultado:TQuickRep;
begin
numeroInforme:=numeroInforme+1;
informeEncabezado:=TQREncabezado.Create(nil);
informeEncabezado.QRPrinter:=TQRPrinter.Create();
informeEncabezado.QRLblTecnico.caption:=usuarioInf;
informeEncabezado.QRLblEmpresa.caption:=descrEmpresa;
informeEncabezado.QRLblFoco.caption:=descrFoco;
informeEncabezado.QRLblFecha.caption:=formatDateTime('dd/mm/yyyy hh:mm:ss',FechaVisita);
informeEncabezado.Prepare();
informeEncabezado.QRPrinter.Save('..\informes\_temp\'+IntToStr(numeroInforme)+'.QRP');
//---
filtroPDF:=TPsQRPDFFilter.Create('..\informes\_temp\'+IntToStr(numeroInforme)+'.pdf');
qrResultado:=TQuickRep.Create(Self);
qrResultado.QRPrinter:=TQRPrinter.Create();
qrResultado.QRPrinter.Load('..\informes\_temp\'+IntToStr(numeroInforme)+'.QRP');
qrResultado.Refresh;
qrResultado.ExportToFilter(filtroPDF);
//---
end;