QuickReport v4.04 Professional

[[sitrico]]

La "exportación" de QuickReport no genera precisamente "un reporte tal cual como se ve en la vista previa" pero yo lo genero de esta forma:

Código Delphi [-]
Procedure TCustomQRep.ExportarArchivo;
Var
fName : String;
Cur : TCursor;
Begin
SaveDialog.FileName := ReportTitle;
If SaveDialog.Execute Then
   Begin
   Cur := Screen.Cursor;
   Screen.Cursor := crHourGlass;
   FName := ChangeFileExt(SaveDialog.FileName,'');
   // Según el tipo de archivo del SaveDialog (1=txt, 2=doc, 3=xls, 4=pdf, 5=html
   Case SaveDialog.FilterIndex of
       1: ExportToFilter(TQRAsciiExportFilter.Create(FName+'.txt'));
       2: ExportToFilter(TQRRTFExportFilter.Create(FName+'.doc'));
       3: ExportToFilter(TQRXLSFilter.Create(FName+'.xls'));
       4: ExportToFilter(TQRPDFDocumentFilter.Create(FName+'.pdf'));
       5: ExportToFilter(TQRGHTMLDocumentFilter.Create(FName+'.html'));
       End;
   Screen.Cursor := Cur;
   End;
End;