TfrxReport.Clear。尽量慎用。

            for MyXuHaoKey in MyXuHaoJianRongSanJieKouDataDicApi.KeySortList do
            begin
              //标记下打印编号,吸入淘打的客户
              MyTradeApi.MarkDayNoByXuhao(MyXuHaoKey);
              with MyShopAdq do
              begin
                Close;
                SQL.Text := MyPrintApi.MyShopSql(MyXuHaoKey);
                Open;
              end;
              with MyTradeAdq do
              begin
                Close;
                SQL.Text := MyPrintApi.MyTradeSql(MyXuHaoKey);
                Open;
              end;
              //加载模板
              MyFrx.LoadFromFile(TGlobalApi.AppPath+'Template\TopLogisticsCompany\'+top_template_code+'.fr3');
              //增加变量模板变量,因为之前每个模板上都有固定变量,所以这里要清除掉,不然会造成数据严重重复
              MyFrx.Variables.Clear;
              MyFrx.Variables.Variables['xuhao'] := MyXuHaoKey;
              MyFrx.Variables.Variables['CnDaTouBi'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].short_address);
              MyFrx.Variables.Variables['CnJiBaoDiCode'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].package_center_code);
              MyFrx.Variables.Variables['CnJiBaoDiName'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].package_center_name);
              MyFrx.Variables.Variables['CnFaJianWangDianCode'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].shipping_branch_code);
              MyFrx.Variables.Variables['CnFaJianWangDianName'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].shipping_branch_name);
              MyFrx.Variables.Variables['CnShouJianWangDianCode'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].consignee_branch_code);
              MyFrx.Variables.Variables['CnShouJianWangDianName'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].consignee_branch_name);
              //预览加载,清空上一批次的,这里不能用MyFrx.Clear;因为Clear会清除变量,以及上面函数的加载,数据的加载,所以一般慎用.
              if I <> 0 then
              begin
                MyFrx.PrepareReport(False);
              end else begin
                MyFrx.PrepareReport(True);
              end;
              Memo1.Lines.Add(IntToStr(I+1)+'----------'+MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].top_buyer_nick+'----------'+MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].waybill_code+'----------准备打印成功'+sLineBreak);
              //下一个
              I := I + 1;
              Application.ProcessMessages;
            end;