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,'');
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;