как заставить выставить с 1 раза альбомный развот?

Aleksandr

Помогите плз!
Как в рантайме выставить альбомную страницу?
Сейчас пробовал на 5 делфи, на нулевом 5 билдере-полная фигня
Создаю страницу и только со второго запуска PrepareReport( или ShowReport) получаю альбомный вариант. переход с альбомного на портретный происходит с 1го раза.

void __fastcall TForm1::Button2Click(TObject *Sender)
{

 TfrPages *frPage;

 frReport1->Pages->Clear();
 frReport1->Pages->Add();

 frPage = &frReport1->Pages[0];

if (CheckBox1->Checked)
   frPage->Pages[0]->Prop["Orientation"]=1;
   else
   frPage->Pages[0]->Prop["Orientation"]=0;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
frReport1->ShowReport();
}

Отчеты большие и пользователю 2 раза построение отчета видеть не хочется.

Что тут неправильно? Может разработчики помогут?
PS: freport 2.51

Michael

чтобы 2 раза не смотреть построение отчёта можно в первый раз делать не showreport, а PrepareReport.
Хотя это тоже не правильно. Изменять должно с первого раза.

AlexTZ

TfrPage *frPage;

frReport1->Pages->Clear();
frReport1->Pages->Add();

frPage = &frReport1->Pages[0];

frPage->ChangePaper(frPage->pgSize, frPage->pgWidth, frPage->pgHeight, frPage->pgBin, poLandscape)