FastReport如何用代码实现纸张横向(50分)

如题！
frReport1.Pages.Clear;
frReport1.Pages.Add;
Page := frReport1.Pages[0];
page.changepaper... ???不知道该怎么办了！！！

page1.orientation := polandscape

不对～
orientation,polandscape :undeclared identifier

fr.pages.Pages[0].ChangePaper(ASize, AWidth, AHeight,abin: Integer; AOr: TPrinterOrientation);
asize:页码纸张的类型，可以通过api从打印驱动中取出例如9是a4，如果系统没有的纸张类型，她3认为是自定义格式 利用 awidth，aheight,生成.AOr:打印方向
这个你看看？？？

Page.pgOr:=poPortrait;
Page.pgOr:=poLandscape;

Page.pgOr:=poLandscape; 还是会显示polandscape :undeclared identifier
我真快疯掉了！！！该怎么办！！！
我的源码如下，请帮我在frreport1.showreport前面加行代码实现纸张横向
procedure Tpform.Button1Click(Sender: TObject);
var
v: TfrView;
b: TfrBandView;
Page: TfrPage;
begin
adoqueryp.Open ;
frReport1.Pages.Clear;
frReport1.Pages.Add; // create page
Page := frReport1.Pages[0];
b := TfrBandView.Create; // create Title band
b.SetBounds(0, 20, 0, 20); // position and size in pixels
b.BandType := btReportTitle; // (only Top and Height are significant
Page.Objects.Add(b); // for the band)

v := TfrMemoView.Create; // create memo
v.SetBounds(20, 20, 200, 16);
v.BandAlign := baWidth;
v.Prop['Alignment'] := frtaCenter; // another way to access properties
v.Prop['Font.Style'] := 2;
v.Memo.Add('电话号码簿');
Page.Objects.Add(v);

b := TfrBandView.Create; // create MasterData band
b.SetBounds(0, 60, 0, 16);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1'; // band's dataset
Page.Objects.Add(b);

v := TfrMemoView.Create; // create memo
v.SetBounds(y, 40, 55, 16);
v.Memo.Add('联系人1');
v.FrameTyp :=15;
Page.Objects.Add(v);

v := TfrMemoView.Create; // create data field
v.SetBounds(y, 76, 55, 16);
v.Memo.Add('[adoqueryp."name"]');
v.FrameTyp :=15;
Page.Objects.Add(v);

frreport1.showreport;

我来接份拉！

1.解决orientation,polandscape :undeclared identifier ,USE PRINTERS
2.ChangePaper中将高和宽颠倒即可横向

接受答案了.