用 fastReport 做报表怎样控制页面高度？

[TryToday]

我在 fastReport 内部语言中写：Page1.Height := 300; 或者： Page1.PageHeight := 300; 但是不起作用，想在bcb程序中控制，试了许多次也写不成正确的代码。
那位大师知道？

[houzy123]

page=frReport1->Pages->Pages[0];
page->Prop["RightMargin"]=StrToInt(CSpinEdit2->Text);
page->Prop["LeftMargin"]=StrToInt(CSpinEdit1->Text);
page->Prop["TopMargin"]=StrToInt(CSpinEdit3->Text);
page->Prop["BottomMargin"]=StrToInt(CSpinEdit4->Text);

[TryToday]

能成吗？

[TryToday]

?

[houzy123]

你不试试怎么知道
frReport1->Pages->Clear();
frReport1->Pages->Add();
page=frReport1->Pages->Pages[0];
page->Prop["RightMargin"]=StrToInt(CSpinEdit2->Text);
page->Prop["LeftMargin"]=StrToInt(CSpinEdit1->Text);
page->Prop["TopMargin"]=StrToInt(CSpinEdit3->Text);
page->Prop["BottomMargin"]=StrToInt(CSpinEdit4->Text);
if(BLandscape)
{
page->ChangePaper(0,0,756,1069,poLandscape);
width_size=1069-StrToInt(CSpinEdit2->Text)-StrToInt(CSpinEdit1->Text);
start_left=StrToInt(CSpinEdit1->Text);
}
else
{
page->ChangePaper(0,0,756,1069,poPortrait);
width_size=756-StrToInt(CSpinEdit2->Text)-StrToInt(CSpinEdit1->Text);
start_left=StrToInt(CSpinEdit1->Text);
}

[TryToday]

我发现用：
ChangePaper(256,width1,height1,65535,poPortrait);
是可以的，256是自定义纸。65535 似乎是缓冲吧？