Fast Report - Continue Next Page & Continue From Previous Page: Difference between revisions
From eStream Software
(→Steps) |
|||
Line 31: | Line 31: | ||
===Steps=== | ===Steps=== | ||
[[File:FR-ContinueNextB-01.jpg|800px|center]] | [[File:FR-ContinueNextB-01.jpg|800px|center]] | ||
: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'') | |||
[[File:FR-ContinueNextB-02.jpg|800px|center]] | [[File:FR-ContinueNextB-02.jpg|800px|center]] | ||
:05. Click '''Events''' tab | |||
:06. Double Click '''OnBeforePrint''' and enter below script | |||
<syntaxhighlight lang="delphi"> | |||
procedure MmContinueBOnBeforePrint(Sender: TfrxComponent); | |||
var B : Boolean; | |||
begin | |||
B := <Page> < <TotalPages>; | |||
MmContinueB.Visible := B; | |||
MmContinueB.Printable := B; | |||
end; | |||
</syntaxhighlight> |
Revision as of 06:24, 7 January 2016
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
Header - Continue From Previous Page...
Steps
- 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)
- 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;
Steps
- 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)
- 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;