流行模式

在新报表<代码>中添加以下代码：
var
aa:Integer;
maxRow:Integer;


procedure Page1OnManualBuild(Sender: TfrxComponent);
var
DataSet: TfrxDataSet;
begin
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;
inc(aa);
if (((aa-1) mod (MaxRow)=0) and (not DataSet.Eof)) then EngIne.Newpage;
end;
end;

begin
aa:=1;
maxRow:=9; //每页最大行数
end.

注意：选择事件：Page1OnManualBuild 步骤详见图一


通用产品<刀具管理系统>中有此功能详见<领用单>打印