Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Fallo al cargar archivo .QRP (https://www.clubdelphi.com/foros/showthread.php?t=51402)

fonx 14-12-2007 09:57:06

Fallo al cargar archivo .QRP
 
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;



La franja horaria es GMT +2. Ahora son las 02:49:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi