强制换页,我在DetailBand的beforePrint写如下代码:
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
IF ([line#]-1>0) and ([line#]-1) mod 4=0 then
newpage;
end;
提示:"]"expected
直接写:
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
newpage;
end;
提示:Undeclared identifier:'newpage'
我用的fr 是3.0版
//Footer1°ª«×³]¬°0
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRowdo
begin
i := i + 1;
Engine.ShowBand(Child1);
//¦LªÅ¥Õªí®æ
end;
end;