Печать после Pagefooter

_Lex_

Добрый день.
Подскажите, пожалуйста, можно ли в отчете вывести на печать какой нибудь бэнд после PageFooter?
Есть потребность вывести итог отчета - последнюю подпись (напр. ReportSummary) после PageFooter, который печатается на каждой странице. Причем по возможности, если достаточно места, то вывести ReportSummary на той же странице.

gpi

Попробуйте так:

procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
begin
     if Engine.FinalPass then                                                       
      if <Page> = <TotalPages> then
     begin               
       ReportSummary1.Visible := True;
       Engine.CurY := Engine.CurY - ReportSummary1.Height - PageFooter1.Height;
     end;
end;

procedure PageFooter1OnAfterPrint(Sender: TfrxComponent);
begin
     if Engine.FinalPass then if <Page> = <TotalPages> then Engine.ShowBand(ReportSummary1);                                                         
end;  
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
     ReportSummary1.Visible := False;  
end;

procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);
begin
     if not ReportSummary1.Visible then                                  
      if Engine.FreeSpace < ReportSummary1.Height + PageFooter1.Height * 2 then
       Engine.NewPage;
end;

Недостаток: на последней странице не используется место, равное величине PageFooter1