QuickReport v4.04 Professional

[edy_aca]

muchas gracias amigo pero que crees me marca error
(lo deje solo asi para probar)

*****************************************
procedure TFVENTAS.Button2Click(Sender: TObject);
Var
fName : String;
Cur : TCursor;
Begin
SaveDialog.FileName := 'ReportTitle';
If SaveDialog.Execute Then
Begin
Cur := Screen.Cursor;
Screen.Cursor := crHourGlass;
FName := ChangeFileExt(SaveDialog.FileName,'.xls');
reporte_1.Reporte_a.ExportToFilter(reporte_1.QRExcelFilter.Create(FName+'.xls'));
Screen.Cursor := Cur;
End;
End;
******************************************

En esta linea

reporte_1.Reporte_a.ExportToFilter(reporte_1.QRExcelFilter.Create(FName+'.xls'));

[Error] pventas.pas(361): Incompatible types: 'TComponent' and 'String'

reporte_1 = es el nombre del form donde esta el quikreport
Reporte_a = es el nombre del quikreport

nota puse el objeto QRExcelFilter (con ese nombre) sobre del quickreport