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

Question

没有人回答，我自己动手，丰衣足食吧！ ：-）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;

Answer 1

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

Answer 2

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