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;