Quickreport (Passsen die Band noch auf die Seite... ?)

[Kedariodakon]

Ok habes ähnlich Qickreport gemacht...

Delphi-Quellcode:

Function   GetStretchHeight( Const From: TQRCustomBand ): Extended;
Begin
  Result := From.Height + From.Size.Length;
  If Assigned( From.LinkBand ) Then Result := Result + GetStretchHeight( From.LinkBand );
End;

Habe es dann so ähnlich ausgeführt: If TQuickRep.AvailableSpace < GetStretchHeight( "Band" ) Then TQuickRep.NewPage;

Bye