Перенос строк на новую страницу
Добрый день!
FR 4.12.2 делаю динамическую выгрузку из dbgrid в отчет fastreport. Колонок получается много, как можно перенести колонки на следующий лист?
Спасибо!
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;{ показываем отчет }
Комментарии