procedure TForm1.frReportBeforePrint(Memo: TStringList; View: TfrView);
begin
if view.Name ='memTitle' then
begin
view.Memo.Text :='销售主任'+ str+ FormatDateTime('yyyy"年"mm"月"dd"日"',dtBegin.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',dtEnd.Date)+'销量分析'; // ;
end;
end;