Hi,
try the following :
Private Sub FormatReportViewer()
Dim thisObj As Object
Dim MyPageView As CrystalDecisions.Windows.Forms.PageView
Dim tcontrol As Windows.Forms.TabControl
For Each thisObj In CrystalReportViewer1.Controls
Select Case UCase(thisObj.GetType.Name)
'Case "STATUSBAR"
' CType(thisObj, StatusBar).Visible = False
Case "PAGEVIEW"
MyPageView = CType(thisObj, CrystalDecisions.Windows.Forms.PageView)
tcontrol = CType(MyPageView.Controls(0), TabControl)
With tcontrol
If .TabPages.Count > 0 Then
With .TabPages(0)
.Text = "Your Heading"
.Visible = True
End With
End If
End With
End Select
Next
End Sub
Hope it will help you.
Regards
Panna
Digital Horizons
India
|