Public Sub RunReport()

Dim ReService As REServices
Set ReService = New REServices

ReService.Init REApplication.SessionContext
Dim oReportIns As IBBReportInstances
Set oReportIns = ReService.CreateServiceObject(bbsoReportInstances)
oReportIns.Init REApplication.SessionContext, ReR_GiftDetailandSummaryReport
Dim oReport As IBBReportInstance

For Each oReport In oReportIns
   'Look for a Gift Detail report in the database named Today's Report
   If oReport.Property(ReR_Property_Name) = "Today's Report" Then
       oReport.Process (ReR_ProcessOption_Preview)
   End If
   oReport.CloseDown
Next oReport

'Clean up
Set oReport = Nothing
Set oReportIns = Nothing
ReService.CloseDown
Set ReService = 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.