@@@@@@为什么预览正确，打印的合计数都只是最后一个

d7 ado access qreport我做了一个查询打印的,
当我查询后就打印.每一页打十条记录,并每一页有相应这一页的合计数.
比如说现在要打印三页,预缆时正确显示为 20 .31 22 三个合计数，但打印出来就是有问题了，每一个合计数都是打印22   也就是最后一个合计数，
其他的每一条记录也是正确的为什么呀，打印机是没问题．
下边是调用打印页的按钮代码:
procedure TDPPForm.Button1Click(Sender: TObject);var
        i,ii:integer;
        j:integer;
begin
dm.DPP1.Prepared;
dm.DPP1.ExecSQL;dm.DPP.Active:=TRUE;
dm.DPP.First;
i:=0;
while not dm.DPP.Eof do
begin
     dm.DPP.Edit;
     dm.DPP.FieldByName('分组号').AsInteger:=floor(i/10)+1;
   dm.DPP.Next;
i:=i+1;
end;while  i mod 10 <> 0 do
begin
        dm.DPP.Insert;
        dm.DPP.FieldByName('分组号').AsInteger:=floor(i/10)+1;
        //dm.DPP.FieldByName('id').AsString:='0';
        dm.DPP.FieldByName('名称').AsString:='0';
        dm.DPP.FieldByName('规格').AsString:='0';
        dm.DPP.FieldByName('单位').AsString:='0';
        dm.DPP.FieldByName('数量').AsString:='0';
        dm.DPP.FieldByName('价格').AsString:='0';
        dm.DPP.Post;
        i:=i+1;
end;
dm.DPP.Active:=false;
dybb.ADOTable1.Active:=false;
dybb.ADOTable1.Active:=true;
dybb.ADOQuery1.Active:=true;
dybb.ADOQuery2.Active:=true;dybb.QRLabel21.Caption:=edit3.Text;
dybb.QRLabel11.Caption:=DateToStr(DateTimePicker1.Date);
dybb.QRLabel3.Caption:=edit1.Text;
dybb.QRLabel15.Caption:=memo1.Text;
//dybb.ADOQuery1.Free;
//dybb.ADOQuery2.Free;
dybb.ADOQuery1.First   ;
  dybb.ADOQuery2.First;
dybb.QuickRep1.Preview;
dm.DPP1.Prepared;
dm.DPP1.ExecSQL;
end;procedure TDPPForm.Button2Click(Sender: TObject);
begin
close;
end;打印页部分代码
procedure Tdybb.QRDBText3Print(sender: TObject; var Value: String);
begin
ADOQuery1.Next;
end;procedure Tdybb.QRDBText4Print(sender: TObject; var Value: String);
begin
if  value = '0' then
value:='';
end;procedure Tdybb.QRDBText5Print(sender: TObject; var Value: String);
begin
if  value = '0' thenvalue:='';
if  value = '0.00' then
value:='';
end;procedure Tdybb.QRDBText8Print(sender: TObject; var Value: String);
begin
ADOQuery2.Next;
end;procedure Tdybb.FormDestroy(Sender: TObject);
begin
end;procedure Tdybb.FormShow(Sender: TObject);
begin
end;procedure Tdybb.FormCreate(Sender: TObject);
beginend;
＠＠＠＠＠＠＠＠＠＠＠为什么预览正确，打印的合计数都只是最后一个＠＠＠＠＠＠＠＠＠＠＠＠＠＠