Переключение на альбомную страницу

Aleksandr

Привет.

Почему-то при создании в рантайме отчета переключение на альбомную страницу происходит только на второй раз, т.е. надо написать 2 раза
frReport1.ShowReport; и только на второй раз страница будет альбомная, а не портретная.

текст:
form14.frReport1.Pages.Clear;
form14.frReport1.Pages.Add;
frPage := form14.frReport1.Pages[0];


frPage.Prop:=29;
frPage.Prop:=29;
frPage.Prop:=29;
frPage.Prop:=29;

if checkbox1.Checked then begin

frPage.Prop:=poLandscape;

end
else
frPage.Prop:=poPortrait;

Переход с альбомной на портретную выполняется с первого раза.
Если после создания запустить дизайнер, то в свойствах страницы радиобаттон показывает на альбомную, а на самом деле- портретная. если нажать на Ок -страница принимает нужный вид. Может есть ф-я обновления страницы?

PS:
Делфи 5, все апдейты, w2k sp3. принтер brother 1240 (последние рекомендуемые дрова) не печатает модифицированный текст (сужение и пр.), а выводит его как нормальный. В 98 винде все ок. Может кто знает лечение такой бяки?

AlexTZ

with frPage do
ChangePaper(pgSize, pgWidth, pgHeight, pgBin, poLandscape)

Aleksandr

Спасибо, все заработало.