fastreport中，如何在用程序指定横向打印，或纵向打印 的问题

[microd]

http://topic.csdn.net/u/20090915/20/409BB3D3-0882-460A-BD26-51AE279D3148.html#r_59826719

为何参照上面的贴子的内容，我的打印没有效果，代码如下：

var
i:integer;
begin
//poLandscape --横向打印，poPortrait -- 纵向打印
if Q1.Active and (Q1.RecordCount > 0) then
begin
TfrxReportPage(frxReport2.Pages[0]).Orientation := poPortrait;
frxReport2.PrintOptions.ShowDialog := False;//不显示打印机选择框
frxReport2.Print();
end;

打印没反映，打印机像死了一样！

[dinoalex]

[code=Delphi(Pascal)]
uses printers;

procedure TForm1.cxButton1Click(Sender: TObject);
begin
fr.LoadFromFile('1.fr3');
(fr.FindObject('page1') as TfrxReportPage).Orientation:= poLandscape;
fr.ShowReport;
end;

procedure TForm1.cxButton2Click(Sender: TObject);
begin
fr.LoadFromFile('1.fr3');
(fr.FindObject('page1') as TfrxReportPage).Orientation:= poPortrait;
fr.ShowReport;
end;
[/Code]

[火龙岛主]

frxReport2要确认是否加载了报表。