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 !!