Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Многостраничный отчет в FastReport [D6, FB 2.0]


tomkat ©   (2010-10-12 10:43:00) 

Помогите, пож. с ситуацией ...есть отчет в сабже, в отчете 4 страницы, есть набор данных из 400 строк .... Отчет выводится в виде : 400 первых страниц, 400 вторых, 400 третьих, 400 четвертых..Как заставить его сформироваться в виде: первая запись - 4 страницы, 2-я -4 стр. и так до 400 ? Очень сильно нужно ....Спасибо !


Виталий Панасенко   (2010-10-13 12:05:00) [1]

а кто сказал, что это Delphi? это код обработчика в САМОМ отчете! все, без всяких страниц.одна страница, связанная с НД и код, НАПИСАННЫЙ на PascalScriptе в САМОМ отчете


tomkat   (2010-10-12 18:32:00) [2]

даже проще..усложнил..не, с Делфи не годицца .. .надо на самом фастРепе написать .... попробовал вложенными отчетами на ChildBand , вроде получилось, только один баг - вначале отчета одна пустая страница


Виталий Панасенко   (2010-10-12 16:37:00) [3]

даже проще..усложнил..
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
 if <Line> mod 4 = 0 then
  Engine.NewPage()
end;

begin

end.


Виталий Панасенко   (2010-10-12 16:22:00) [4]

var
I : Integer;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
  if I mod 4 = 0 then
   Engine.NewPage();
  Inc(I);
end;

begin
I := 1;
end.


Виталий Панасенко   (2010-10-12 15:47:00) [5]

если НД один, то размести все на ОДНОЙ странице, только размер бэнда сделай такой, чтобы размещалось только 4 строки.. либо используй скриптовый язык. в OnBefore бэнда считай, кратная 4 позиция в НД или нет.. если да - новая страница


Наверх

Титульная страница Поиск, карта сайта Написать письмо