fastrepot3.0解决打印空白行 ( 积分: 200 )

使用fastreport3.0打印，要求每页有页小结，最后后报表总结，每页打印30条数据，而且最后一页如果数据不足30页的话就打印空白行，怎么实现这个问题呀？注意是3.0
，别弄个2.5的我会

使用fastreport3.0打印，要求每页有页小结，最后后报表总结，每页打印30条数据，而且最后一页如果数据不足30页的话就打印空白行，怎么实现这个问题呀？注意是3.0
，别弄个2.5的我会

我感觉3.0没做完吧，少了很多功能，而且不稳定，但做起来很快的，不知道能解决不？

2.5怎么做的? 我以前都是插入空行的?不知道你是用什么方法.

大富翁上说的都是2.5的解决的办法，3.0好像都没人用

我说的方法跟版本是无关的. 我们设置每页的行数,然后根据记录数插入了空行.

还有更好的方法么？

以前我也那样做过，太烦了，想找个新的方法

請看:
http://www.denguo.com/mx.asp?id=169

FastReport 3.X

var
PageLine: integer;
//在現在頁列印到第幾行
PageMaxRow: integer=15;
//設定每頁列數
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := <line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
Engine.newpage;
end;

//Footer1高度設為0
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRowdo
begin
i := i + 1;
Engine.ShowBand(Child1);
//印空白表格
end;
end;

begin
end.

FastReport 2.X
在資料字典設定變數
PageMaxRow 設定每頁列數。
PageLine 在現在頁列印到第幾行。
每 PageMaxRow 筆新自動跳頁(在Band的OnBeforePrint)

PageLine := [line#] mod PageMaxRow;
if (PageLine = 1) and ([line#] > 1) then
newpage;

一頁列印15筆，不足筆數的列印空白表格列的方法
Master1
detail1----固定印PageMaxRow筆，有表格
detailFooter1---在OnBeforePrint輸入下列程式碼，高度設為 0
child1---空白表格
**detailFooter1.OnBeforePrint

i := PageLine;
if i = 0 then
i := PageMaxRow;
while i < PageMaxRowdo
begin
i:=i+1;
ShowBand(Child1);
end;