紧急求救！！！如何在代码中动态改变报表的数据邦定字段的文字大小，高分相赠!!!

[swwxcgs]

我作了一个报表，想在报表中动态改变数据邦定字段的文字大小，用

For Each Ctl In Me.Sections.Item("Section1").Controls 'Section1
Select Case TypeName(Ctl)
Case "RptLabel"
DSec1_RptLbl_Collection.Add Ctl
Ctl.Caption = ""
Case "RptShape"
DSec1_RptShp_Collection.Add Ctl
Case "RptTextBox"
Ctl.Font.Size = txtSize
Ctl.Font.Italic = True
Ctl.DataField = adoRecordsetX.Fields.Item(0).Name
DSec1_RptTxt_Collection.Add Ctl
Case "RptLine"
DSec1_RptLine_Collection.Add Ctl
Case "RptImage"
DSec1_RptImg_Collection.Add Ctl
End Select
Ctl.Left = 0
Ctl.Top = 0
Ctl.Height = 400
Ctl.Width = 600
Ctl.Visible = False
Next Ctl

预览却没有效果，请高手帮忙，问题解决立即给分！！！！！

[VBfreegirl]

VB自带的报表好像不能用程序控制,只能在设计里做好,试着用其它的报表控件吧!或是将数据放置于窗体中,利用窗体进行打印,但要定位好,用坐标定位!(已折腾VB三年了)

[swwxcgs]

难道这个问题没有人能解决吗？怎么没人回答？csdn里没有高手了吗？

[flc]

关注
我是个VB 新手帮不了你
UP

[sunr]

我只能用窗，不能随意控制报表器