if fdetail.controls[j] is tqrlabel then
tqrlabel(fdetail.controls[j]).caption:='';
end;
for j:=1 to fpagemaxlines*parentreport.pagenumber-hasprintedlines do
// fpagemaxlines 页最大打印行数，外部传进来的变量
//parentreport.pagenumber 总共打印的页数，因为只对最后一页进行控制，
//所以当前的打印页数已经确定，可以直接取
begin
application.processmessages; //begin 1
if parentreport.qrprinter.cancelled then exit;
printgroupheaders;
printbeforecontrollers;
if assigned(fdetail) then fdetail.makespace;
notifyclients(qrmasterdataadvance);
parentreport.printband(fdetail);
printaftercontrollers; //end 1
//从begin 1到这里的函数是直接copy自2.0版本上的打印(此处应该有更加好的解决方法，
//偶只是懒了一下，:) ) 其实这段用在2.0中也是没有问题di
end; //add end
end
end else
begin
moredata := false;
if assigned(fonneeddataevent) and not (csdesigning in componentstate) then
onneeddata(selfcheck, moredata);
end;
if checkgroups then
begin
if dsok then
dataset.prior;
printgroupfooters;
if dsok then
dataset.next;
end;
if parentreport is tquickrep and
dsok and (tquickrep(parentreport).dataset = dataset) and (reccount <> 0) then
parentreport.qrprinter.progress := (longint(detailnumber) * 100) div reccount;
end;
注：第一次写这样的东东和大家共享，感觉有点力不从心。原因？太明显了，1、不知道格式该怎么定义
2、不知道怎么写注解 3、我的文笔又很懒 4、不知道mm是否在想我呢？？？:)
ok，本次东东就东到这里，同志们，好东西拿出来共享吧
