//在MasterData的BeforePrint中处理, frx3 pass var K: integer; procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin K := K + 1; if K>10 then begin Engine.Newpage; K := 0; end; end;
来迟一步,cncharles(旺仔)的方法对了,还有另外一个办法,也是在MasterData的BeforePrint里面写脚本,代码如下: begin if (FRAC([CURRENT#-1]/10)=0) and ([CURRENT#]>1) then Newpage; end
var
K: integer;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
K := K + 1;
if K>10 then begin
Engine.Newpage;
K := 0;
end;
end;
begin
if (FRAC([CURRENT#-1]/10)=0) and ([CURRENT#]>1) then
Newpage;
end