как распечатать в рулоне

Комментарии

• gpi

  December 2006 отредактировано 01:00

  Такое возможно только в FR4
• Noskov

  December 2006 отредактировано 01:00

  В FR3 сделать можно:
  Завести в отчете переменную и в OnAfterCalcHeight каждого бэнда ее увеличивать. Таким образом вычисляем размер отчета по высоте.
  А открываем отчет так:
  - PrepareReport - Формируем отчет 1-й раз только для того чтобы вычислить его высоту
  - Считываем значение переменной
  - Устанавливаем новый PageHeight у страницы
  - PreviewPages.Clear - Очищаем отчет
  - ShowReport - строим отчет заново с уже новой высотой страницы
  
  Ну а в FR4 все намного проще...
• Гиорги

  December 2006 отредактировано 01:00

  Noskov написал:

  В FR3 сделать можно:
  Завести в отчете переменную и в OnAfterCalcHeight каждого бэнда ее увеличивать. Таким образом вычисляем размер отчета по высоте.
  А открываем отчет так:
  - PrepareReport - Формируем отчет 1-й раз только для того чтобы вычислить его высоту
  - Считываем значение переменной
  - Устанавливаем новый PageHeight у страницы
  - PreviewPages.Clear - Очищаем отчет
  - ShowReport - строим отчет заново с уже новой высотой страницы
  
  Ну а в FR4 все намного проще...

  ne mojesh pakazat primer toist cod shtobi bila panatnie zaranee spasiba
• gpi

  December 2006 отредактировано December 2006

  В программе

  procedure TForm1.Button1Click(Sender: TObject);
  begin
       frxReport1.Script.Variables['DataHeight']:=0;
       frxReport1.PrepareReport();
       TfrxReportPage(frxReport1.FindObject('Page1')).PaperHeight:=frxReport1.Script.Variables['DataHeight']/fr01cm+20+1;
  //поля в отчёте 10мм+10мм+1мм в запасе
  //в отчёте только один MasterData1
       frxReport1.ShowReport();
  end;
  

  в отчёте

  procedure MasterData1OnAfterCalcHeight(Sender: TfrxComponent);
  begin
       DataHeight:=DataHeight+MasterData1.Height;                                                                                      
  end;