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

Комментарии

• OlegK

  December 2009 отредактировано 15:41

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

  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 создается новая страница.
  В прикрепленном файле простенький отчет, в котором вы можете посмотреть как все это реализуется.
  
  
• Прокопенко Сергей

  May 2010 отредактировано 15:41

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

  October 2018 отредактировано 15:41

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

  November 2018 отредактировано 15:41

  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.