изменение свойств страницы отчета

natasha

В отчете выводится cross-tab свойство страницы - портрет.У меня вопрос как поменять ориентацию на ландшавт если количество колонок в таблице больше 10?
заранее благодарю.

Fokewolf

А почему бы тебе не использовать вместо cross-tab вертикальный бэнд? Как по мне, с ним работать удобнее. И непоместившиеся графы будут переноситься на другую страницу.

gpi

В программе:

frxReport1.Script.Variables['NeedRotate']:=False;
  frxReport1.PrepareReport;
  if frxReport1.Script.Variables['NeedRotate'] then
    begin
      TfrxReportPage(frxReport1.FindObject('Page1')).Orientation:=poLandscape;
      frxReport1.ShowReport();
    end
  else
    frxReport1.ShowPreparedReport;

В скрипте:

procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
     if (not NeedRotate) and (ColumnIndex>9) then NeedRotate:=True;
end;

Если печатается итоговый столбец, то ColumnIndex>10
Хотел сделать отчёт двухпроходным. На первом проходе определять необходимость поворота страницы, а на втором в главной процедуре отчёта менять ориентацию страницы. Не получается - NeedRotate всегда False.
Надеюсь, разработчики прояснят ситуацию

natasha

Добрый день! Спасибо за ответ ,попробовала ваш вариант но при компиляции выдает ошибку Undeclared identifier 'poLandscape'? Почему не понятно может нужно в uses что-то еще прописать?

Lex

uses
Printers;

natasha

Спасибо уже сама нашла !