How To…Align Group Footer to Bottom

Question

“How can I align the Group Footer to the bottom of the page?”

Solution

The following example uses the GrouppFooter.BeforePrint event to to align a static height group footer to the bottom of the page.

Download: AlignGroupFooterToBottom.zip

Sample Delphi code:

procedure TForm1.ppGroupFooterBand1BeforePrint(Sender: TObject);
var
  lPageBottom: Single;
begin
 {Get the bottom of the page from the report engine. This value is adjusted
  for the footer and bottom margin. Convert the units from mmThousands to
  Report.Units}
  lPageBottom := ppFromMMThousandths(ppReport1.Engine.PageBottom, ppReport1.Units, pprtVertical, nil);

  {Set the group footer band print position to align it to the bottom of the page}
  ppGroupFooterBand1.PrintPosition := lPageBottom - ppGroupFooterBand1.Height - 0.01;

end;

procedure TForm1.ppGroupFooterBand1BeforePrint(Sender: TObject);

var

lPageBottom: Single;

begin

{Get the bottom of the page from the report engine. This value is adjusted

for the footer and bottom margin. Convert the units from mmThousands to

Report.Units}

lPageBottom := ppFromMMThousandths(ppReport1.Engine.PageBottom, ppReport1.Units, pprtVertical, nil);

{Set the group footer band print position to align it to the bottom of the page}

ppGroupFooterBand1.PrintPosition := lPageBottom - ppGroupFooterBand1.Height - 0.01;

end;