如何在VCL FastReport

Question

我正在使用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;

Answer 1

使用

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