Continuation Page

rbuser

In a group header band, i have several dbtext components, that i turned
on the ReprintOnOverflow. Below that is a memo and subreport. For example:

Name Email PhoneNbr
xxxxxxxxxxxxxxxxxx (1) xxxxxxxxxxxxxxxx (1) xxxxxxxxxxxx (1)
xxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxx

Notes:

the lines with (1) have the reprintonoverflow on. What i wondered was:

I wanted a (cont'd) label on the "Name Email PhoneNbr" line if the line
is split between two pages either from the memo pr subreport stretching
or from the name lines 1-4. I think putting the NameLine1-4 in a region
and setting it to keep together may be ok for the namelines, but if the
memo or subreport go to a new page i cannot get a cont'd label to show
up on the next page headings, but not show up on the first page.

Any ideas thanks

nicocizik

Hi Jeff,

Try directly adding a draw command to the page if the Memo.Overflow (or
Subreport.Overflow) property is True. This will need to be checked in
the DetailBand.AfterPrint event. Something like the following (rough code).

procedure TForm1.ppDetailBand1AfterPrint(Sender: TObject);
begin
if ppDBMemo1.OverFlow {or ppSubreport1.Overflow} then
AddDrawCommandToReport;

end;

procedure TForm1.AddDrawCommandToReport;
var
lDrawText: TppDrawText;
begin

lDrawText := TppDrawText.Create(nil);
lDrawText.Text := 'Continued...';
lDrawText.Width := 20000;
lDrawText.Height := 10000;
lDrawText.Left := ppReport1.Engine.PrintPosRect.Right - lDrawText.Width;
lDrawText.Top := ppReport1.Engine.PrintPosRect.Top;

lDrawText.Page := ppreport1.Engine.Page;

end;