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

t0aster

Добрый день!
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;{ показываем отчет }

gpi

Попробуйте создавать колонки на другой TfrxReportPage

t0aster

gpi написал: »

Попробуйте создавать колонки на другой TfrxReportPage

подскажите пожалуйста как перейти на следующую страницу, я создаю новую страницу, а данные туда перенести не могу...

gpi

Так же, как и первую

Page := TfrxReportPage.Create(FRep);{ добавляем страницу }
Page.CreateUniqueName;{ создаем уникальное имя }
Page.SetDefaults;{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
po := TPrinterOrientation.poLandscape;
Page.Orientation := po;{ меняем ориентацию бумаги }

t0aster

gpi написал: »

Так же, как и первую

Page := TfrxReportPage.Create(FRep);{ добавляем страницу }
Page.CreateUniqueName;{ создаем уникальное имя }
Page.SetDefaults;{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
po := TPrinterOrientation.poLandscape;
Page.Orientation := po;{ меняем ориентацию бумаги }

Спасибо!!! Разобрался!!!