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

Гиорги

если можете ответьте мне пожалуйста на один вопрос как
распечатать в рулоне так чтобы вся информация поместилась на одном
листе независя от высоты текста тоесть чтобы отчет несформировал
1,2,3
страницу чтобы всё было на одном листе, чтобы лист растягивался на
такую длину которая нужна. Заранее спасибо
На Fast-Report 3

gpi

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

Noskov

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

Ну а в FR4 все намного проще...

Гиорги

Noskov написал:

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

Ну а в FR4 все намного проще...

ne mojesh pakazat primer toist cod shtobi bila panatnie zaranee spasiba

gpi

В программе

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;