Общее количество страниц в двухпроходном отчете

Комментарии

• Noskov

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

  Попробуй так:
  Engine.NewPage;
  Set('TotalPages',<TotalPages>+1);
• Andrew_Sh г.Минск

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

  qizz написал:

  Проблема в том, что переменная TotalPages возвращает старое количество страниц, не учитывая эти переносы, т.е. на последней страницы вполне реально увидеть надпись "Страница 130 из 129". Подскажите пожалуйста, как выйти из такого положения?

  Помнится так работало в 2.x
  Какая версия FR? У меня в 3.17 при использовании в OnBeforePrint бэнда кода
  

   if Engine.FinalPass
     then Engine.NewPage;
  

  
  ToltalPages выводит нормальное значение. Попробуйте обновить версию.
• qizz

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

  Noskov написал:

  Попробуй так:
  Engine.NewPage;
  Set('TotalPages',<TotalPages>+1);

  Так не получится. Представьте, что разбивка на страницы по умолчанию была бы такая:

  первая страница          вторая страница
  -----------------------------------------------------
      запись 1                      запись 4
      запись 2
      запись 3
  -----------------------------------------------------
  

  
  Тогда, если мне нельзя осталять запись 3 последней на странице, я переношу ее на следующую, но общее количество страниц не меняется, т.к. места на второй странице хватает. Если же вторая страница будет заполненной, то последняя запись не влезет, и произойдет формирование третьей страницы самим ядром FastReport'a.
  Поэтому каждый раз увеличивать количество страниц не годится.
• qizz

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

  Andrew_Sh написал:

  Помнится так работало в 2.x
  Какая версия FR? У меня в 3.17 при использовании в OnBeforePrint бэнда кода
  

   if Engine.FinalPass
     then Engine.NewPage;
  

  
  ToltalPages выводит нормальное значение. Попробуйте обновить версию.

  Версия 3.15. Дело в том, что ошибается он не всегда, а довольно редко, когда не хватает места (см. пример в предыдущем моем сообщении). А как оно может работать, если мне уже на первой странице нужно вывести общее количество страниц, а формирование новой страницы может встретиться где-то в середине, т.е
  общее количество страниц может увеличиться уже после печати первой страницы?
• Noskov

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

  TotalPages вычисляется на первом проходе, а Engine.NewPage дается на втором, т.е. страница может добавиться когда TotalPages уже вычислено. Попробуйте давать эту команду и на первом и на втором проходе. Думаю, что тогда количество страниц будет вычисляться корректно.
• qizz

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

  Noskov написал:

  TotalPages вычисляется на первом проходе, а Engine.NewPage дается на втором, т.е. страница может добавиться когда TotalPages уже вычислено.

  В том-то и дело, что на первом проходе формировать новую страницу я не могу, т.к. еще не вычислена высота строки, что будет потом. Тут бы трехпроходной отчет разве что помог бы... Я вообще надеялся, что господа разработчики чего-нибудь подскажут
• Andrew_Sh г.Минск

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

  qizz написал:

  qizz написал:

  Помнится так работало в 2.x
  Какая версия FR? У меня в 3.17 при использовании в OnBeforePrint бэнда кода
  

   if Engine.FinalPass
     then Engine.NewPage;
  

  
  ToltalPages выводит нормальное значение. Попробуйте обновить версию.

  Версия 3.15. Дело в том, что ошибается он не всегда, а довольно редко, когда не хватает места (см. пример в предыдущем моем сообщении). А как оно может работать, если мне уже на первой странице нужно вывести общее количество страниц, а формирование новой страницы может встретиться где-то в середине, т.е
  общее количество страниц может увеличиться уже после печати первой страницы?

  Повторяю, попробуйте в версии 3.17. Для проверки, работает ли правильно в 3.15 предлагаю следующее:
  1) Создайте новый отчет;
  2) Для MasterData выставьте
  RowCount=5,
  StartNewPage=true,
  
  3) Добавьте обработчик для MasterData1.OnBeforePrint
  

  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
   if Engine.FinalPass
    then begin
      Engine.NewPage;
      ShowMessage(IntToStr(<TotalPages#>));
    end;
  end;
  

  
  4) На PageFooter в Memo1 поместите выражение
  [PAGE#] из [TOTALPAGES#]
  
  5) Внимательно смотрите, какое значение TotalPages выдает ShowMessage и какое значение выводится в Memo на футере.
  
  Выводы делайте сами. По крайней мере про 3.17 можно точно сказать, что <span style='color:blue'>точное значение TotalPages становится известно во втором проходе только после печати последней страницы и только потом в мемках происходит подстановка значений.</span>
• qizz

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

  Andrew_Sh написал:

  4)  На PageFooter в Memo1 поместите выражение
  [PAGE#] из [TOTALPAGES#]

  Большое спасибо, проблема решена.
  Я использовал не [TOTALPAGES#], а [TOTALPAGES].
  
  Хотя в руководстве по поводу переменных написано следующее:
  TotalPages - всего страниц в текущем отчете (отчет должен быть двухпроходным)
  TotalPages# - всего страниц в пакете.
  
  Кто бы мог подумать, что несмотря на отсутствие каких-либо пакетов, нужно использовать именно вторую из них!