Несколько страниц

Комментарии

• OlegK

  February 2010 отредактировано February 2010

  написал:

  Вопрос - как програмно создать несколько страниц?

  Примерно так:

  procedure TForm1.ButtonOKClick(Sender: TObject);
  var
    i, start, count: Integer;
    page: TfrxReportPage;
    memo: TfrxMemoView;
  begin
    start := 20; // начальный номер
    count := 10; // количество страниц
    for i := start to start + count - 1 do
    begin
      // создание страницы
      page := TfrxReportPage.Create(Report);
      page.CreateUniqueName;
      // создание поля с номером страницы
      memo := TfrxMemoView.Create(page);
      memo.SetBounds(20, 20, 20, 20);
      memo.Text := IntToStr(i);
    end;
  end;
  
• gpi

  February 2010 отредактировано 07:24

  А почему бы просто не задать TfrxReportPage.PageCount, а в качестве номера страницы использовать [<Page> + <Offset>] ?
• VictorM

  May 2010 отредактировано 07:24

  Всем доброго дня!
  Подскажите, пожалуйста, новичку: мне нужно изменить нумерацию страниц в отчёте, который в FR состоит из 4-х страниц. На 1-й имеется поле с ситемной переменной [page], но данные на этой странице иногда могут занимать более одной страницы, следовательно, номера страниц изменяются - тут проблем нет.
  На 2-й и 4-й страницах отчёта в FR такого поля нет - для этих частей отчёта номера страниц ни к чему.
  А вот на 3-й странице снова мне необходимо проставить номера, но только не в том порядке, как они идут, а чтобы в этой части отчёта номера страниц начинались также с первой.
  Таким образом, мне нужно получить 2 группы страниц из одного отчёта, которые бы начинались с первой страницы.
  Если я написал не в ту тему, пожалуйста, направьте по адресу.
  Спасибо за помощь!
• gpi

  May 2010 отредактировано 07:24

  Используйте следующий скрипт:
  var p: integer;
  procedure Page2OnAfterPrint(Sender: TfrxComponent);
  begin
  p:=<Page>;
  end;
  На третьей странице выводите
  [<Page>-p]