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;

本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/1331887，如需转载请自行联系原作者