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;