Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   FastReport a PDF (https://www.clubdelphi.com/foros/showthread.php?t=92081)

nopi 18-07-2017 21:21:13

FastReport a PDF
 
Que tal colegas, estoy tratando de convertir un reporte de FastReport a PDF, el procedimiento que utilizo es el siguiente:

Código Delphi [-]
procedure ExportarReportePDF(UnReporte: TfrxReport; UnNombre: String);
var
  ExportPDF  : TfrxSynPDFExport;
  GuardarPDF : TSaveDialog;
begin
  ExportPDF  := TfrxSynPDFExport.Create(nil);
  GuardarPDF := TSaveDialog.Create(nil);
  Try
    Try
      GuardarPDF.DefaultExt := '*.pdf';
      GuardarPDF.FileName   := UnNombre;
      GuardarPDF.Filter     := 'PDF|*.pdf';
      GuardarPDF.Options    := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing];

      If GuardarPDF.Execute then
      Begin
        ExportPDF.FileName        := GuardarPDF.FileName;
        ExportPDF.ShowDialog      := False;
        ExportPDF.ShowProgress    := False;
        ExportPDF.OpenAfterExport := False;
        ExportPDF.HideToolbar     := True;

        UnReporte.PrepareReport(True);
        UnReporte.Export(ExportPDF);
        AbrirArchivos(GuardarPDF.FileName);
      End;
    Except on e : Exception do
      Begin
        msError('Ha ocurrido el siguiente error: ' + E.Message);
      End;
    End;
  Finally
    FreeAndNil(ExportPDF);
    FreeAndNil(GuardarPDF);
  End;
end;

El detalle de este código es que tarda casi 1 minuto en la instrucción
Código Delphi [-]
UnReporte.Export(ExportPDF);
Tienen alguna idea de que pudiera estar mal? De antemano muchas gracias !!

movorack 18-07-2017 23:12:58

Si en lugar de exportarlo. ¿Mostrar el reporte al 100% cuanto demora?

nopi 18-07-2017 23:16:58

Cita:

Empezado por movorack (Mensaje 519442)
Si en lugar de exportarlo. ¿Mostrar el reporte al 100% cuanto demora?

Tarda menos de 1 segundo en mostrar el reporte

movorack 18-07-2017 23:54:29

El código que muestras, como tal no debería presentar errores. y la demora está al usar la función de exportar.

Que se demore en la exportación podría ser algo del componente de FR o Algo con el objeto/motor de generación de PDF que use el FR. En ese caso el soporte de FR podría ayudarte.

Si el componente requiere que Acrobat Reader esté instalado, también podría ser algo con este último y una prueba sería revisar en otra estación.

nopi 19-07-2017 16:05:14

Muchas gracias [movorack], lo intenté en otro equipo y lo hace normal, creo que no hay ningún problema, saludos !!

AgustinOrtu 19-07-2017 20:47:44

Como curiosidad, por que utilizas la clase TfrxSynPDFExport? Yo utilizo la TfrxPDFExport y no tengo ningun problema, con codigo semejante al que publicaste

nopi 19-07-2017 21:28:42

Cita:

Empezado por AgustinOrtu (Mensaje 519484)
Como curiosidad, por que utilizas la clase TfrxSynPDFExport? Yo utilizo la TfrxPDFExport y no tengo ningun problema, con codigo semejante al que publicaste

Que tal AgustinOrtu, lo utilicé así porque con el frxPDFExport hay algunas partes del reporte que me las pone como imagen en vez de texto (siendo un Memo) y con el frxSynPDFExport no tengo ese problema

movorack 19-07-2017 21:34:51

Eso es algo ya reportado en FR hace mucho tiempo


La franja horaria es GMT +2. Ahora son las 17:52:56.

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