UndoCount: Integer;
Свойство UndoCount возвращает количество операций, которые можно отменить.
Sub Macro;
Var
Rep: IPrxReport;
Tab: ITabSheet;
View: ITabView;
Begin
Rep:=PrxReport.ActiveReport;
Tab:=Rep.ActiveSheet.Table;
View:=Tab.View;
Tab.Cell(0,0).Value:=View.UndoCount;
End Sub Macro;
Данный пример является макросом для регламентного отчета. После выполнения макроса в ячейке «A0» будет содержаться количество операций, которые можно отменить.
См. также: