Problems with pagefooter on last page (event GetSpecialText)

Hey all!
I have problems with showing a special pagefooter on the last page - sometimes it appears, and sometimes it is the standard for all pages depending how much text I have formatted in the bodysection. The body section is filled up with only one large table. It seems that it depends on that.
I have tried to reformat all and refresh all but nothing helps :-(

How can I ensure that the pagefooter on the last page always appears?

I have used the following code:

procedure TfmOrders.WPRichTextGetSpecialText(Sender: TObject; par: TParagraph;
  PosInPar, PageNr: Integer; Kind: TWPPagePropertyKind; var IsLastPage,
  UseThis: Boolean; var SpecialText: TWPRTFDataBlock);
begin
  FWpInvoice.HeaderFooter.Get(wpIsHeader, wpraOnAllPages, '').RtfText.AsString := ‘FInvHeaderAllPages’;
  if not IsLastPage then begin
    FWpInvoice.HeaderFooter.Get(wpIsFooter, wpraOnAllPages, '').RTFText.AsString := ’FInvFooterAllPages’;
  end else begin
    FWpInvoice.HeaderFooter.Get(wpIsFooter, wpraOnLastPage, '').RTFText.AsString := ‘FInvFooterLastPage’;
  end;
  UseThis := True;
end;

thanks in advance for any help,

Michael

Zitat von wpsupport

Hi,

The even OnGetSpecialText should not be used to create header or footer like in your code.

It is meant to select any existing element.

To do so assign it to the variable var SpecialText: TWPRTFDataBlock - which is not changed at all in your code.

If you modify SpecialText also set UseThis := True;

Julian

Alles anzeigen

Do you have an example of how to assign the variable "special text" - it is nil. And set the text to the one which belongs to all/last page? Thanks in advance.
Michael

Thanks for your help.
It seems to work now.
Michael