Public Sub ShowCourseReport()
 
    Dim oReports As IBBReportInstances
    Dim oReport As IBBReportInstance
  
    Dim feService As FE_Services
    Set feService = New FE_Services
    feService.Init FE_Application.SessionContext
  
    Set oReports = feService.CreateServiceObject(bbsoReportInstances)
    oReports.Init FE_Application.SessionContext, bbrep_EA_CourseReport
    
    For Each oReport In oReports
        If oReport.Property(REPORTPARAMETERNAMES_fld_NAME) = "Course Catalog With Descriptions" Then
            oReport.Process (bbrep_ProcessOption_Preview) 'Note that a runtime error will generate if there is no data returned for the report
        End If
        oReport.CloseDown
    Next oReport
    
    Set oReport = Nothing
    Set oReports = Nothing
    
    feService.CloseDown
    Set feService = Nothing
    
End Sub

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.