PageFooter

Комментарии

• Andrew_Sh г.Минск

  September 2005 отредактировано September 2005

  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

  September 2005 отредактировано 01:39

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

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