Fastreport. Печать Pagefooter непосредственно после Masterdata

hic · July 2010

Как в FastReport 4.9 осуществить корректный вывод PageFooter непосредственно после MasterData?
Пробовал так:

var
  Y: extended;
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
  Y:=Engine.CurY;
end;

procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
begin
  Engine.CurY:=Y;
end;

При переносе нескольких строк данных на новую страницу все отображается корректно:

Далее... В отчете присутсвуют бэнды: ReportTitle, Header, MasterData, Footer и PageFooter. MasterData.KeepFooter := True, т.е. если Footer переносится на новую страницу, то последняя строка данных, в любом случае, переходит вместе с ним, и вот когда такое происходит, то получается некрасиво:

hic · July 2010

Я какую-то глупость спросил, или реально никто не знает?

hic · July 2010

Понял свою ошибку. Проблема решена скриптом

procedure MasterDataOnBeforePrint(Sender: TfrxComponent);
begin
  if (MasterData.Dataset.RecNo + 1 = MasterData.Dataset.RecordCount) 
  and (Engine.FreeSpace < (MasterData.Height + ColumnFooter.Height + ReportSummary.Height)) then
    Engine.NewPage;                                                                             
end;

Используемые бэнды: ReportTitle, ColumnHeader, MasterData, ColumnFooter и ReportSummary.

Fastreport. Печать Pagefooter непосредственно после Masterdata

Комментарии

Оставить комментарий