MultiPage Report Page NO Problem

Comments

• gordk St.Catherines On. Canada.

  September 2007 edited 7:45AM

  try setting the reports reset pagenumbers property, if that doesn't work for you use your own variables for page numbers and totals.
• pcleslie

  September 2007 edited 7:45AM

  gordk wrote: »

  try setting the reports reset pagenumbers property, if that doesn't work for you use your own variables for page numbers and totals.

  
  I use the following code to solve my problem:
  
  Report-->Option-->Check Double Pass
  Report-->Variable--> <TP> = <TotalPages#>/3
  
  Multi-Page Report1-->Page :[P1] of [TP]
  Multi-Page Report2-->Page :[P2] of [TP]
  Multi-Page Report3-->Page :[P3] of [TP]
  
  [Code Page:]
  
  var P1,P2,P3:Integer;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
  P1:=1;
  end;
  
  procedure Page2OnBeforePrint(Sender: TfrxComponent);
  begin
  P2:=1;
  end;
  
  procedure Page3OnBeforePrint(Sender: TfrxComponent);
  begin
  P3:=1;
  end;
  
  procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
  begin
  P1:=P1+1
  end;
  
  procedure PageFooter2OnBeforePrint(Sender: TfrxComponent);
  begin
  P2:=P2+1
  end;
  
  procedure PageFooter3OnBeforePrint(Sender: TfrxComponent);
  begin
  P3:=P3+1
  end;
  
  begin
  
  end.