库存管理软件版1楼: 我在fastreport报表设计器重需要分页
但是我想指定每页的记录数
结果是他自动的每页显示一条记录，我希望能够指定每页的记录数
怎么样实现

2楼: 怎么没人回复阿？ 如进销存软件免费下载

3楼: 我也想知道怎么实现的!

4楼: 在线等待啊

5楼: 先帮顶一下,明天上午给你源代码。

6楼: 这是来自chinyu的解答，我用过，还不错。
FastReport 3.X
var
PageLine: integer; //当前行
PageMaxRow: integer=15; //设定每页行数，如15行每页

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := mod PageMaxRow;
if (PageLine = 1) and ( > 1) then
Engine.newpage;
end;

//Footer1高度设为0

procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRow do 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 < PageMaxRow do begin
i:=i+1;
ShowBand(Child1);
end;

库存管理软件版7楼: 我回答的是正确的，可以结了。