fastreport4清除以前的数据,连续打印

     frxReport1.Clear;
     frxReport1.DataSets.Clear;
     frxDBDataset1.DataSet := dm_day_list.ado_day_list;
     frxReport1.DataSet := frxDBDataset1;
     frxReport1.LoadFromFile(wpath + '患者每日清单.fr3');
     frxReport1.PrintOptions.ShowDialog := false;
   //  frxReport1.PrintOptions.Printer := 'BTP-R580(U) 1';
     frxReport1.PrepareReport(True);
     frxReport1.Print;