QuickRep中分2栏打印问题：如何将第二栏中的表格线与第一栏对齐？

[wenxj]

用QuickRep分多栏打印时遇到这样的问题：第一栏填满了，而余下的记录不足以填满第二栏，由于使用了表格线，一边多，一边少，非常难看,就象下图所示：
_______________
|______|______|
|______|______|
|______|______|
|______|______|
|______|
|______|
|______|
有什么办法能使第二栏的表格线与第一栏补齐？

[wenxj]

有人答出我再加50分！

[wenxj]

有人答出我再加50分！

[wenxj]

有人答出我再加50分！

[wfmwg]

关注。

[nhjoy]

我去试试，看你等着。

[iamfool]

看看

[iamfool]

控件

[wenxj]

没有人回答，我自己动手，丰衣足食吧！ ：-）

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
nPrintCount := 3; //要加打的空 band 数
nCount := 0; //已加打的 Band 数
end;

procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
if (QuickRep1.RecordCount=QuickRep1.RecordNumber) //是否在打印最后一个DetailBand
and (nCount<nPrintCount) then //是否已打够空band数
begin
Sender.HasChild := TRUE;
QRshape2.Parent :=Sender.ChildBand;
Sender.ChildBand.Height := Sender.Height;
Inc(nCount);
Sender.ChildBand.AfterPrint := DetailBand1AfterPrint; //设置事件入口（循环打印）
end;
end;

[wenxj]

斑竹：
为什么不能给自己加分？我可是自己解决了问题呀。

[clacklin]

嘿，我来晚了，你已经自己琢磨出来了。