放一個TQRGroupBand,一個TQRBand(Bandtype:Detail);
一般在同一頁中GroupBand只印一次﹐加上n行Detail.如何在同一頁中印(GroupBand 1 行+detail k 行)*2次,且detail 按正常次序 ?
________________________________
| GroupBand |
|===============================|
| Detail1 |
|===============================|
| Detail2 |
|===============================|
| Detail3 |
|===============================|
| Detail4 |
|_______________________________|
________________________________
| GroupBand |
|===============================|
| Detail5 |
|===============================|
| Detail6 |
|===============================|
| Detail7 |
|===============================|
| Detail8 |
|_______________________________|
一般在同一頁中GroupBand只印一次﹐加上n行Detail.如何在同一頁中印(GroupBand 1 行+detail k 行)*2次,且detail 按正常次序 ?
________________________________
| GroupBand |
|===============================|
| Detail1 |
|===============================|
| Detail2 |
|===============================|
| Detail3 |
|===============================|
| Detail4 |
|_______________________________|
________________________________
| GroupBand |
|===============================|
| Detail5 |
|===============================|
| Detail6 |
|===============================|
| Detail7 |
|===============================|
| Detail8 |
|_______________________________|
說白了﹐每頁印2張單據,單據格式固定detail4行。
在QRReport所在的Form的type 部分加入一個"虛"的繼承:
Type
TMyQRBand=Class(TQRCustomBand);//"虛"的繼承 TForm1=Class(TFrom)
...
private
detailLine:integer;
end;
然后在QRGroupBand1.OnBeforePrint:
begin
detailLine:=0;
end;
在QRDetailBand1.OnBeforePrint:
begin
inc(detailLine);
if detailLine=5 then
begin
TMyQRBand(QRGroupBand1).Print;//﹗﹗﹗
end;
end;
你可以按需要控制打印時機。