Fast Report - Continue Next Page & Continue From Previous Page

From eStream Software
Revision as of 06:36, 7 January 2016 by Twfaung (talk | contribs) (→‎Introduction)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Introduction

Sometime we need to show or an indicator to let the person who received the Document know there is more then 1 page.
There are 2 ways to show this

  • Header - Continue From Previous Page...
  • Footer - Continue Next Page...

Below is example using Sales Cash Sales

FR-ContinueNext-01.jpg

Header - Continue From Previous Page...

Steps

FR-ContinueNextT-01.jpg
01. Click on Red A icon
02. Click at the place to print/shown in the GroupHeader band
03. Enter the text you like (eg Continue From Previous Page...)
04. Change the Name (eg MmContinueT)
FR-ContinueNextT-02.jpg
05. Click Events tab
06. Double Click OnBeforePrint and enter below script
procedure MmContinueTOnBeforePrint(Sender: TfrxComponent);
var B : Boolean;
begin
  B := (<Page> > 1);
  MmContinueT.Visible   := B;
  MmContinueT.Printable := B;
end;

Footer - Continue Next Page...

Steps

FR-ContinueNextB-01.jpg
01. Click on Red A icon
02. Click at the place to print/shown in the Footer band
03. Enter the text you like (eg Continue Next Page...)
04. Change the Name (eg MmContinueB)
FR-ContinueNextB-02.jpg
05. Click Events tab
06. Double Click OnBeforePrint and enter below script
procedure MmContinueBOnBeforePrint(Sender: TfrxComponent);
var B : Boolean;
begin
  B := <Page> < <TotalPages>;
  MmContinueB.Visible   := B;
  MmContinueB.Printable := B;
end;

See also