Summary Band Alignment

The 'AlignToBottom' property of the summary band does not work properly.
Some replacement code is given below which fixes this.

A quick workaround (which is in the knowledgebase) is to assign the reports
'CurrentY' property in the 'BeforePrint' event of the summary band.

To fix the library, replace procedure TCustomQuickRep.PrintBand in Quickrpt.pas
with the code here, and rebuild.
procedure TCustomQuickRep.PrintBand(ABand : TQRCustomBand);
var
  spaceleft, spacerequ : integer;
begin
  if ABand <> nil then
  begin
    if ABand.AlignToBottom then
    begin
      spacerequ := round( aband.size.length + page.BottomMargin + FPageFooterSize );
      if (aBand.BandType = rbSummary) and (not (LastPageFooter in Options)) then
        FPageFooterSize := 0.0;
      if Page.Orientation = poPortrait then
        spaceleft := round(QRPrinter.PaperLength) - CurrentY
      else
        spaceleft := round(QRPrinter.PaperWidth) - CurrentY;
      if spaceleft >= spacerequ then
      begin
         if Page.Orientation = poPortrait then
              CurrentY := round(QRPrinter.PaperLength) - round(aband.size.length) - round(page.BottomMargin + FPageFooterSize)
         else
              CurrentY := round(QRPrinter.PaperWidth) - round(aband.size.length) - round(page.BottomMargin + FPageFooterSize);
      end;
    end;
    ABand.Print;
  end;
end;