Redo;
Метод Redo осуществляет повтор последней отмененной операции.
Sub Macro;
Var
Rep: IPrxReport;
Tab: ITabSheet;
View: ITabView;
Begin
Rep:=PrxReport.ActiveReport;
Tab:=Rep.ActiveSheet.Table;
View:=Tab.View;
If View.RedoCount<>0 Then
View.Redo;
End If;
End Sub Macro;
Данный пример является макросом для регламентного отчета. После выполнения макроса будет осуществлен повтор последней отмененной операции.
См. также: