PageFooter

mmm_michael

Доброе время суток, уважаемые.
Столкнулся с такой проблемой, подскажите как решить.
В отчете есть PageFooter. Устанавливаю свойство "Печатать на последней странице".
А вот собсно и проблема:
если в отчете 2-е и более страниц, все отлично, выводится на последней, а вот если всего одна - то не выводится (получается что первая страница не есть последняя )?

Неужели никто не сталкивался с такой проблемой???

Andrew_Sh

mmm_michael написал:

А вот собсно и проблема:
если в отчете 2-е и более страниц, все отлично, выводится на последней, а вот если всего одна - то не выводится (получается что первая страница не есть последняя  )?

Так и было задумано, т.к. если в отчете всего одна страница, то строка 'стр. 1 из 1' выглядит несколько нелепо. Если же вы все-таки хотите выводить PageFooter в отчете из одной страницы и не печатать, если число листов > 1, то

1) сделайте отчет двухпроходным,
2) для бэнда PageFooter установите свойство PrintOnFirstPage=true и напишите такой обработчик для OnBeforePrint:

procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
begin
  if Engine.FinalPass and (<Page>=1) then
    PageFooter1.Visible := <TotalPages>=1;
end;

mmm_michael

Спасибо за помощь!
Только пришлось немного изменить код:

  if Engine.FinalPass
  then
    if (<Page#>=1)
    then PageFooter1.Visible := <TotalPages#>=1
    else PageFooter1.Visible := True;