UndoCount: Integer;
The UndoCount property returns the number of operations which can be undone.
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;
The example is a macro for a regular report. After the macro has been executed, the A0 cell will contain the number of operations, which can be undone.
See also: