在代码里写了,还是没用啊。详细数据是可以分页,但是我也希望主数据也能到下一页啊。 procedure MasterData3OnBeforePrint(Sender: TfrxComponent); var vLineCount: integer; begin { vLineCount := vLineCount + 1; if vLineCount mod 5=0 then begin // vLineCount := 0; ShowMessage(inttostr(vLineCount)); // Engine.NewPage;
end;} end; procedure DetailData3OnBeforePrint(Sender: TfrxComponent); var vLineCount: integer; begin { vLineCount := <line#> mod 5; if (vLineCount = 1)and(<line#> > 1) then Engine.NewPage;} end;
procedure MasterData3OnBeforePrint(Sender: TfrxComponent);
var
vLineCount: integer;
begin
{ vLineCount := vLineCount + 1;
if vLineCount mod 5=0 then
begin
// vLineCount := 0;
ShowMessage(inttostr(vLineCount));
// Engine.NewPage;
end;}
end;
procedure DetailData3OnBeforePrint(Sender: TfrxComponent);
var
vLineCount: integer;
begin
{ vLineCount := <line#> mod 5;
if (vLineCount = 1)and(<line#> > 1) then
Engine.NewPage;}
end;