PUSH模式动态水晶报表的实现-文本框、数据框的设置

        文本框和数据框的设置类似

 

                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