IEaxGrid.Range

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    PivSlice: IEaxDataAreaSlice;
    Grid: IEaxGrid;
    NOutputRect, OutputRect: IGxRect;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчет
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    // Получим таблицу
    PivSlice := Report.DataArea.Slices.Item(0);
    Grid := PivSlice.Views.Item(0) As IEaxGrid;
    // Выведем в окно консоли адрес диапазона ячеек таблицы
    Report.Recalc;
    Debug.WriteLine("Диапазон ячеек таблицы - " + Grid.Range.Address);
    // Получим параметры  таблицы
    OutputRect := Grid.OutputRect;
    // Создадим новую область таблицы
    NOutputRect := New GxRect.CreateFromRect(OutputRect);
    NOutputRect.Bottom := OutputRect.Bottom + 1;
    NOutputRect.Left := OutputRect.Left + 1;
    NOutputRect.Right := OutputRect.Right + 1;
    NOutputRect.Top := OutputRect.Top + 1;
    // Назначим для таблицы новую область
    Grid.OutputRect := NOutputRect;
    // Обновим отчет
    Grid.Refresh;
    Report.Recalc;
    // Выведем в окно консоли адрес диапазона ячеек новой области таблицы
    Debug.WriteLine("Адрес диапазона ячеек новой области таблицы - " + Grid.Range.Address);
    // Сохраним изменения
    (Report As IMetabaseObject).Save;
End Sub UserProc;