title | ms.prod | ms.assetid | ms.date |
---|---|---|---|
Report.Index Property (Project) |
project-server |
3a0ccb0f-443e-ea35-4766-b79f97fef84a |
06/08/2017 |
Gets the index of a custom report in the Reports collection. Read-only Long.
expression. Index
expression A variable that represents a Report object.
The following example lists the index and name of each custom report in a project.
Sub ListCustomReports()
Dim oReport As Report
Dim msg As String
Dim msgBoxTitle As String
msg = ""
msgBoxTitle = "Custom reports in '" &; ActiveProject.Name &; "'"
For Each oReport In ActiveProject.Reports
msg = msg &; oReport.Index &; oReport.Name &; vbCrLf
Next oReport
If ActiveProject.Reports.Count > 0 Then
MsgBox Prompt:=msg, Title:=msgBoxTitle
Else
MsgBox Prompt:="This project contains no custom reports.", _
Title:=msgBoxTitle
End If
End Sub
INT32