FastReport分页和空行填充
生活随笔
收集整理的這篇文章主要介紹了
FastReport分页和空行填充
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
0.在FastReport 4.X版本通過。
1.添加兩個Band 一個是主數據和CHild(與主數據一樣的空白帶格子)。
2.生成Page事件。
3.添加代碼。
var
aa:Integer;
maxRow:Integer;
procedure Page1OnManualBuild(Sender: TfrxComponent);
var
DataSet: TfrxDataSet;
begin
aa:=1;
DataSet := MasterData1.DataSet;
DataSet.First;
while (not DataSet.Eof) or ((aa-1) mod MaxRow<>0) do
begin
?? if DataSet.Eof then Engine.ShowBand(Child1)
?? else Engine.ShowBand(MasterData1);
?? DataSet.Next;
?? aa:=aa+1;
?? if (((aa-1) mod (MaxRow)=0) and (not DataSet.Eof)) then EngIne.Newpage;
end;
end;
begin
maxRow:=15; //每頁最大行數
end.
總結
以上是生活随笔為你收集整理的FastReport分页和空行填充的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: Apache 下更改 DocumentR
- 下一篇: WD1600AAJS AAKS 固件