我正在使用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;
答案 0 :(得分:0)
使用
TfrxReportPage(frxReport1.FindObject('Page1')).Orientation := TPrinterOrientation.poLandscape;
frxReport1.ShowReport;