Crystal Reports™ 8.5 Developer's Guide

Create and modify a report
This code should appear in the Form_Load event procedure. It tells the viewer
what report it should display and then it tells it to display (view) the report.
Sub Form_Load()
Private
= vbHourGlass
Screen.MousePointer
= Report
CRViewer1.ReportSource
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
This code should appear in the Form_Resize event procedure, it resizes the viewer
every time the form is resized.
Sub Form_Resize()
Private
= 0
CRViewer1.Top
= 0
CRViewer1.Left
= ScaleHeight
CRViewer1.Height
CRViewer1.Width = ScaleWidth
End Sub
5 To add selection criteria to the report. Edit the "Form2" declarations and
"Form_Load" procedure to look like this:
Report As New CrystalReport1
Dim
rs As New ADOR.Recordset
Dim
Sub Form_Load()
Private
= vbHourGlass
Screen.MousePointer
"Select * from customer where country = 'USA'", _
rs.Open
sample database"
"xtreme
rs,3,1
Report.Database.SetDataSource
= Report
CRViewer1.ReportSource
CRViewer1.ViewReport
= vbDefault
Screen.MousePointer
Sub End
This adds a query to select only the records with "USA" in the "Country" field.
The recordset that results from that query will be passed to the report engine
and the results displayed.
6 Run the report again to see the changes. Your report should only contain USA
data.
7 Now we'll add a text object to the report and manipulate it using code. In the
main Report Designer window, right-click just to the right of the graph in the
Report Header pane and point to Insert, then select Text Object.
8 Move the text object just above the pie graph. You may have to move the graph
down a bit first. Make note of the Name in the Properties window. In this
example, the name is "Text5" but the name in your project may be different.
36 Crystal Reports Developer’s Guide