如何在VCL FastReport

时间:2018-01-29 17:17:51

标签: delphi fastreport delphi-10.2-tokyo

我正在使用Embarcadero版本的FastReport,我需要在运行时更改某些子报表页面的方向(主要是因为图片)。基于Programmer's manual它应该很容易,但我无法弄清楚它是如何或何时可能的。我尝试更改这两个事件中的所有页面,但没有成功。我不确定它在这个版本中是否有用,或者我错过了什么。

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;

1 个答案:

答案 0 :(得分:0)

使用

TfrxReportPage(frxReport1.FindObject('Page1')).Orientation := TPrinterOrientation.poLandscape;
frxReport1.ShowReport;