Z zxy666666 Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-25 #3 procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if 條件式 then Engine.newpage; end;
L leadyli Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-25 #4 固定每頁打10行: procedure MasterData1OnBeforePrint(Sender: TfrxComponent); var i: Integer; begin for i := 1 to 10do //根據數據量調整 if <Line> = (10*i+1) then Engine.NewPage; end;
固定每頁打10行: procedure MasterData1OnBeforePrint(Sender: TfrxComponent); var i: Integer; begin for i := 1 to 10do //根據數據量調整 if <Line> = (10*i+1) then Engine.NewPage; end;