User manual BUSINESS OBJECTS CRYSTAL REPORTS 10 TECHNICAL REFERENCE GUIDE

[. . . ] Crystal ReportsTM 10 Technical Reference Guide Business Objects, SA. North American Corporate Headquarters 3030 Orchard Parkway San Jose, CA 95134 Copyright © 2004 Business Objects SA. No part of this documentation may be stored in a retrieval system, transmitted or reproduced in any way, except in accordance with the terms of the applicable software license agreement. This documentation contains proprietary information of Business Objects SA. , and/or its suppliers. Trademark Acknowledgements The Business Objects logo, BusinessObjects, Crystal Reports, and Crystal Enterprise are trademarks or registered trademarks of Business Objects SA in the United States and/or other countries. [. . . ] The report is using the Customer table and a subreport using the Details table is added. See "Inserting subreports" in the Crystal Reports Online Help (crw. chm). ' Create a new instance of the report. Dim oReport As New CrystalReport1 Private Sub Form_Load() ' Declare a SubreportObject object. Dim oSubreportObject As CRAXDRT. SubreportObject ' Declare a generic Object. Dim oObject As Object ' Declare a Section object. Dim oSection As CRAXDRT. Section ' This variable is set to true once the ' subreport object is found. Dim bSubreport As Boolean bSubreport = False ' Search for all the report objects in each section. For Each oSection In oReport. Sections For Each oObject In oSection. ReportObjects ' Find the first subreport object. If oObject. Kind = crSubreportObject Then ' Get the subreport object and exit the loop. Set oSubreportObject = oObject bSubreport = True Exit For End If Next oObject If bSubreport Then Exit For Next oSection ' Format the subreport object. With oSubreportObject . BackColor = vbYellow . BorderColor = vbBlue . HasDropShadow = True . CanGrow = True . CloseAtPageBreak = True . KeepTogether = True . Height = 1200 . Left = 2000 . Top = 200 . Width = 8000 . BottomLineStyle = crLSDotLine Crystal Reports Technical Reference Guide 245 Examples . LeftLineStyle = crLSDashLine . RightLineStyle = crLSDoubleLine . TopLineStyle = crLSSingleLine End With ' Set the report source of the viewer and view the report. CRViewer1. ReportSource = oReport CRViewer1. ViewReport End Sub How to format a text object This example gets a text object and then formats the text object through the TextObject Object properties. CrystalReport1 is connected to the xtreme. mdb database found in the \Program Files\Crystal Decisions\Crystal Reports 10\Samples\En\Databases folder. The report is using the Customer table. ' Create a new instance of the report. Dim oReport As New CrystalReport1 Private Sub Form_Load() ' Declare a TextObject object. Dim oTextObject As CRAXDRT. TextObject ' Declare a generic Object. Dim oObject As Object ' Declare a Section object. Dim oSection As CRAXDRT. Section ' This variable is set to true once the ' text object is found. Dim bText As Boolean bText = False ' Search for all the report objects in each section. For Each oSection In oReport. Sections For Each oObject In oSection. ReportObjects ' Find the first text object. If oObject. Kind = crTextObject Then ' Get the text object and exit the loop. Set oTextObject = oObject bText = True Exit For End If Next oObject If bText Then Exit For Next oSection ' Format the text object and change the text. [. . . ] 445 Function templates table in C . . . . . . . . . . . . . . . . . . . . . . . . . . 427 Helper Modules in C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 423 implementing in C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 430 in C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . [. . . ]