请教ReportBuild怎么打印输出成EXCEL？

Question

请教有做过的高手们！

Answer 1

var
  AExportFilter : TQRCommaSeparatedFilter;
begin
  SaveDialog1.Filter := 'CSV File|*.csv';
  if SaveDialog1.Execute then
  begin
     AExportFilter :=
       TQRCommaSeparatedFilter.Create(SaveDialog1.FileName + '.csv');
     try
        Form2.QuickRep1.ExportToFilter(AExportFilter)
     finally
        AExportFilter.Free;
     end;
  end;
end;