Ir al contenido


Foto

[RESUELTO] Exportar a PDF un TQRCompositeReport QuickReport


  • Por favor identifícate para responder
2 respuestas en este tema

#1 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 13 agosto 2011 - 11:10

Saludos a toda la comunidad...


Ando aquí con un problema al utilizar el componente TQRCompositeReport y querer exportar la combinación de reportes a un PDF....


Aquí el código tal y como lo utilizo:





delphi
  1. with Guardar do
  2.     begin
  3.     InitialDir := Proyecto.RutaExe;
  4.     filter := 'Documento Acrobat PDF|*.PDF';
  5.     FileName:= InitialDir + '\Manifestacion';
  6.     if execute then
  7.     begin
  8.       if uppercase (ExtractFileExt(Guardar.FileName)) <> '.PDF' then
  9.         Guardar.FileName := Guardar.FileName + '.pdf';
  10.       Archivo := Guardar.FileName;
  11.       AntesImprimir;
  12.  
  13.  
  14.       with formaReporte.crManifNuevo do
  15.         begin
  16.           Reports.Clear;
  17.           Reports.Add(formaReporte.qrReporteManifNuevo);
  18.           Reports.Add(formaReporte.qrReporteManifNuevo2);
  19.           Reports.Add(formaReporte.qrReporteManifNuevo3);
  20.           Reports.Add(formaReporte.qrReporteManifNuevo4);
  21.       end;
  22.      
  23.       formaReporte.crManifNuevo.ExportToFilter(TQRPDFDocumentFilter.Create(Archivo));
  24.     end;
  25.     end;




El problema radica en que no está haciendo la combinación de los reportes... es decir, me manda solo la impresión en PDF del primero y los otros 3 los ignora...


Alguna ayuda al respecto amigos ? 


Gracias adelantadas y Saludox !     

  • 0

#2 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 13 agosto 2011 - 12:00

Hola
No entiendo muy bien el asunto (para variar) pero pregunto:
No funcionara con un Try ?.
Saludos
  • 0

#3 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 21 septiembre 2011 - 07:53

Esto lo solucioné utilizando el filtro TQRPDFDocumentFilter de la siguiente manera:



delphi
  1. ReporteMultiple.ExportToFilter(TQRPDFDocumentFilter.Create(savedialog1.FileName))



En donde ReporteMultiple es de tipo TQRCompositeReport  (y)

Saludox ! :)

  • 0




IP.Board spam blocked by CleanTalk.