Как изменить ориентацию страницы в VCL FastReport

Я использую версию FastReport для Embarcadero, и мне нужно изменить ориентацию некоторых страниц подотчета во время выполнения (в основном из-за изображений). На основании руководства программиста это должно быть легко, но Я не могу понять, как и когда это возможно. Я пытался изменить все страницы в этих двух событиях, но безуспешно. Я не уверен, работает ли это вообще в этой версии, или я что-то упускаю.

TfrxReport.OnBeforePaint

procedure TForm1.frxReportBeforePrint(Sender: TfrxReportComponent);
begin
  if Assigned(Sender.Page) then
    TfrxReportPage(Sender.Page).Orientation := TPrinterOrientation.poLandscape;
end;

TfrxReport.OnPrintPage

procedure TForm1.frxReportPrintPage(Page: TfrxReportPage; CopyNo: Integer);
begin
  TfrxReportPage(Page).Orientation := TPrinterOrientation.poLandscape;
end;

delphi fastreport delphi-10.2-tokyo
person Triber    schedule 29.01.2018    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Использовать

TfrxReportPage(frxReport1.FindObject('Page1')).Orientation := TPrinterOrientation.poLandscape;
frxReport1.ShowReport;
person gpi    schedule 30.01.2018
comment
Доступно ли свойство Orientation? - person Ilyes; 30.01.2018
comment
Это изменит ориентацию всех страниц, а не только некоторых, а также не работает для страниц вложенных отчетов. - person Triber; 30.01.2018