ограничение кол-ва строк в бэнде на страницу

Прокопенко Сергей

Есть запрос и его результат надо выводить порционно по 100 строк, например, на 1 страницу, кто знает, как это сделать в FastReport Studio?
Необходимое кол-во строк на страницу может меняться, поэтому расчет расстояний между полями, что бы влезло "аккурат", достаточно хлопотный.

OlegK

Нужно в скрипте написать следующий код:

var
  Counter: Integer;
  MaxCount: Integer;                                                   
    
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin    
  if Counter = MaxCount then
  begin
    Counter := 0;
    Engine.NewPage;                                                
  end;
  Counter := Counter + 1;      
end;

begin
  Counter := 0;
  MaxCount := 4;                                  
end.

В этом коде создаются две переменные: счетчик Counter и максимальное значение счетчика MaxCount (это как раз и есть максимальное количество строк на страницу).
В обработчике события MasterData1OnBeforePrint, Counter увеличивается на единицу, и если он равен MaxCount, то счетчик Counter обнуляется, и строкой Engene.NewPage создается новая страница.
В прикрепленном файле простенький отчет, в котором вы можете посмотреть как все это реализуется.

Прокопенко Сергей

Большое спасибо, получилось.

silverxak

Аттач не получается уже скачать, а если полностью код переносить, то работает корректно, но первая страница печатается с одной строкой и только все остальные уже с указанным MaxCount

gpi

var
  Counter: Integer;
  MaxCount: Integer;                                                  
    
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin    
  if Counter = MaxCount then
  begin
    Counter := 0;
    Engine.NewPage;                                                
  end;
  Counter := Counter + 1;      
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
  Counter := 0;
  MaxCount := 4;  
end;

begin
                                    
end.