var i:integer; procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if ((<Line#>-1) mod 9 =0)and ((<Line#>-1)>0) then begin engine.newpage; end; i:=<line#>+1;end;procedure MasterData1OnAfterPrint(Sender: TfrxComponent); var j:integer; t:integer;begin if (<Page#>=<TotalPages#>) then begin if engine.finalpass then if (MasterData1.dataset.recordcount=<line>) then begin j:=9-(MasterData1.dataset.recordcount mod 9) ; if ((MasterData1.dataset.recordcount mod 9))<>0 then for t:=1 to j do engine.showband(child1); end; //engine.showband(child1); end; end;beginend. 明白? 设置一空:child1 当然要显示的行数你自己确定 我这里举例为9
i:integer;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if ((<Line#>-1) mod 9 =0)and ((<Line#>-1)>0) then
begin
engine.newpage;
end;
i:=<line#>+1;end;procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
var
j:integer;
t:integer;begin
if (<Page#>=<TotalPages#>) then
begin
if engine.finalpass then
if (MasterData1.dataset.recordcount=<line>) then
begin
j:=9-(MasterData1.dataset.recordcount mod 9) ;
if ((MasterData1.dataset.recordcount mod 9))<>0 then
for t:=1 to j do
engine.showband(child1);
end;
//engine.showband(child1);
end;
end;beginend.
明白?
设置一空:child1 当然要显示的行数你自己确定 我这里举例为9