muchas gracia amigo pero que crees me marca error
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
|