Переменные Page и Totalpages в выражениях

Комментарии

• gpi

  April 2012 отредактировано 07:50

  Сохраните значение <Page#> для последней страницы отчёта в переменной и используйте это значение на втором проходе
• Den28

  April 2012 отредактировано 07:50

  gpi написал: »

  Сохраните значение <Page#> для последней страницы отчёта в переменной

  И где вы предлагаете сохранить это значение?
  У нас композитный отчёт, т.е. состоящий из нескольких отдельных отчётов. Переменные определяются отдельно для каждого отчёта.
  
  
  
• Den28

  April 2012 отредактировано 07:50

  Попробуем:
  
  Для каждого отчёта, входящих в композитный (для примера возьмём однин и тот же с MasterData1.RowCount=1):
  1. Добавляем переменые: vPage, vTotalPages, vPage#,vTotalPages#
  2. Добавляем событие:

  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
      Set('vPage#', <Page#>);      
      Set('vPage',  <Page>);      
    if not Engine.FinalPass then begin
      Set('vTotalPages#', <TotalPages#>);
      Set('vTotalPages',  <TotalPages>);      
      end;
  end;
  

  3. Добавляем, поле memo.text=
  'vPage:[vPage] - vTotalPages:[vTotalPages] - vPage#:[vPage#] - vTotalPages#:[vTotalPages#]'
  
  В итоге получаем для композитного отчёта из трёх страниц (каждый отчёт - одна страница):
  
  vPage:0 - vTotalPages:2 - vPage#:0 - vTotalPages#:0
  vPage:1 - vTotalPages:1 - vPage#:1 - vTotalPages#:0
  vPage:1 - vTotalPages:1 - vPage#:2 - vTotalPages#:0
  
  если ставим:

  procedure Page1OnAfterPrint(Sender: TfrxComponent);
  begin
    if not Engine.FinalPass then begin
      Set('vTotalPages#', <TotalPages#>);
      Set('vTotalPages',  <TotalPages>);      
      end;
  end;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
      Set('vPage#', <Page#>);      
      Set('vPage',  <Page>);      
  end;
  

  В итоге получаем для композитного отчёта из трёх страниц (каждый отчёт - одна страница):
  
  vPage:0 - vTotalPages:0 - vPage#:0 - vTotalPages#:0
  vPage:1 - vTotalPages:0 - vPage#:1 - vTotalPages#:0
  vPage:1 - vTotalPages:0 - vPage#:2 - vTotalPages#:0
  
• gpi

  April 2012 отредактировано 07:50

  Сделайте отчёт однопроходным, количество страниц определяйте так:
  frxReport1.Script.Variables := 0;
  frxReport1.PrepareReport(True);
  frxReport1.PrepareReport(False);
  frxReport1.PrepareReport(False);
  frxReport1.Script.Variables := frxReport1.PreviewPages.Count;
  frxReport1.PrepareReport(True);
  frxReport1.PrepareReport(False);
  frxReport1.PrepareReport(False);
  frxReport1.ShowPreparedReport;
  
  LastPage выводите в отчёте
• Den28

  May 2012 отредактировано 07:50

  Спасибо за оперативный ответ.
  Но...
  1. Ваш пример подразумевает наличие Delphi. (тут-то никаких проблем с подстчётом количества страниц и тем более с установкой № страниц. Да можно и многостраничник из композитного сгенерить ).
  2. Вопрос же относится именно к отдельным отчётам (например, формируемым в дезайнере FastReport Studio и хранящимся в БД).
  3. Понятно, что TotalPages - это переменная, а TotalPages# - по сути макрос. Но интересует именно использование #. Поэтому и тема была задана "Переменные Page и Totalpages в выражениях".
  
• gpi

  May 2012 отредактировано 07:50

  Без Delphi, по-моему, Ваша задача нереализуема