文本框和数据框的设置类似
Dim txtFind As CrystalDecisions.CrystalReports.Engine.TextObject
txtFind = CustomReport.ReportDefinition.Sections("Section2").ReportObjects("Text1" )
txtFind.ObjectFormat.HorizontalAlignment = Alignment.HorizontalCenterAlign '居中显示
txtFind.Left = 100 ‘边距
txtFind.Width = 1000 ’宽度
FeildFind.ObjectFormat.EnableCanGrow =true ’显示不开是否自动换行
Dim FeildFind As CrystalDecisions.CrystalReports.Engine.FieldObject