Count: Integer;
Свойство Count возвращает количество листов в регламентном отчете.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Report: IPrxReport;
Sheets: IPrxSheets;
i: Integer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Report").Bind;
Report := MObj As IPrxReport;
Sheets := Report.Sheets;
i := Sheets.Count;
End Sub Main;
После выполнения примера в переменной «i» будет содержаться количество листов в регламентном отчете. Идентификатор регламентного отчета - «Report».
См. также: