Group footer alignment at bottom of page.

rbuser

Is it possible to align a Group Footer at the bottom of a page?

nicocizik

Hi Dees,

You can use the PrintPosition property of the group footer band to adjust
the vertical position of that band on the page. This property is a
measurment in report units.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Hi,

Thanks for your answer, but I don't get the band on the correct position

It is the intention that the groupfooter is printed before the footerband
and summaryband. Can you make an example for me?

Thanks in advance,

Dees

nicocizik

Hi Dees,

The page footer will always print at the bottom of the page and the summary
band will always print at the end of the report. What exactly are you
trying to accomplish? If you would like the group footer at the very bottom
of the page, you will need to remove the page footer band.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Hi,

Default the groupfooter is printed directly under the detailband.

I now try to print the groupfooter direct above the footerband.

But how dow I retrieve at runtime the height of my footerband so I can
calculate the new position of my groupfooterband?

Which event do I have to use for setting my PrintPosition?

Thx

rbuser

I found a solution:

procedure TForm1.ppGroupFooterBand1BeforePrint(Sender: TObject);
var
PageBottom: Single;
Rect: TppRect;
StartingPosition: Integer;
begin
with Report.Engine.Page.PageDef do
PageBottom := mmHeight - mmMarginBottom;

StartingPosition := StrToInt(FloatToStr(PageBottom)) -
ppFooterBand1.mmHeight - ppGroupFooterBand1.mmHeight;

Rect.Left := Report.Engine.PrintPosRect.Left;
Rect.Top := StartingPosition;
Rect.Right := Report.Engine.PrintPosRect.Right;
Rect.Bottom := StartingPosition + ppGroupFooterBand1.mmHeight;
Report.Engine.SetPrintPosition(Rect.Left, Rect.Top, Rect.Right, Rect.Top);
end;