Перенос строк на новую страницу

отредактировано 10:31 Раздел: FastReport 4.0
Добрый день!
FR 4.12.2 делаю динамическую выгрузку из dbgrid в отчет fastreport. Колонок получается много, как можно перенести колонки на следующий лист?
Спасибо!
  FRep.Clear;    { очищаем отчет }
  FRep.DataSets.Add(FRepDS);{ добавляем источник данных в список доступных для отчета }
  DataPage := TfrxDataPage.Create(FRep); { добавляем страницу "Данные" }
  Page := TfrxReportPage.Create(FRep);{ добавляем страницу }
  Page.CreateUniqueName;{ создаем уникальное имя }
  Page.SetDefaults;{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
  po := TPrinterOrientation.poLandscape;
  Page.Orientation := po;{ меняем ориентацию бумаги }
  Band := TfrxReportTitle.Create(Page);{ добавляем report title }
  Band.CreateUniqueName;
  { для бэнда достаточно установить координату Top и высоту }
  { обе координаты - в пикселах }
  Band.Top := 0;
  Band.Height := 20;
  Band.AllowSplit := true;
  band.Stretched := true;
  Memo := TfrxMemoView.Create(Band);{ добавляем объект на report title }
  Memo.CreateUniqueName;
  Memo.Text := 'Клиенты';
  Memo.Height := 20;
  Memo.Align := baWidth;{ этот объект будет растянут на ширину бэнда }
  DataBand := TfrxMasterData.Create(Page);{ добавляем master data }
  DataBand.CreateUniqueName;
  DataBand.DataSet := FRepDS;
  DataBand.Top := 100; { координата Top не должна пересекать ранее добавленный бэнд! }
  DataBand.Height := 20;
  k := 0;
  j := 0;
  t := 0;
  for i := 0 to DBGridClient.FieldCount -1 do
     begin
        Memo := TfrxMemoView.Create(DataBand);{ добавляем объект на master data }
        Memo.CreateUniqueName;
        Memo.DataSet := FRepDS;{ подключаем к данным }
        Memo.DataField := DBGridClient.Columns[i].FieldName;
        Memo.SetBounds(k, t,DBGridClient.Columns[i].Width, 20);
        Memo.HAlign := haLeft; { выравниваем текст по правому краю объекта }
        Memo.Frame.Typ := [ftLeft,ftRight,ftTop,ftBottom];
        k := k + DBGridClient.Columns[i].Width;
     end;
  FRep.ShowReport;{ показываем отчет }

Комментарии

  • gpigpi
    отредактировано 10:31
    Попробуйте создавать колонки на другой TfrxReportPage
  • отредактировано 10:31
    gpi написал: »
    Попробуйте создавать колонки на другой TfrxReportPage
    подскажите пожалуйста как перейти на следующую страницу, я создаю новую страницу, а данные туда перенести не могу...
  • gpigpi
    отредактировано 10:31
    Так же, как и первую
    Page := TfrxReportPage.Create(FRep);{ добавляем страницу }
    Page.CreateUniqueName;{ создаем уникальное имя }
    Page.SetDefaults;{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
    po := TPrinterOrientation.poLandscape;
    Page.Orientation := po;{ меняем ориентацию бумаги }
    
  • отредактировано 10:31
    gpi написал: »
    Так же, как и первую
    Page := TfrxReportPage.Create(FRep);{ добавляем страницу }
    Page.CreateUniqueName;{ создаем уникальное имя }
    Page.SetDefaults;{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
    po := TPrinterOrientation.poLandscape;
    Page.Orientation := po;{ меняем ориентацию бумаги }
    
    Спасибо!!! Разобрался!!!

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.