水晶报表9，预览栏如何去掉？

Private Sub Command1_Click()

Dim CrxApp As CRAXDRT.Application
Dim CrxRep As CRAXDRT.Report
Dim crxDatabase As CRAXDRT.Database
Dim crxDatabaseTables As CRAXDRT.DatabaseTables
Dim crxDatabaseTable As CRAXDRT.DatabaseTable

Set CrxApp = New CRAXDRT.Application
Set CrxRep = CrxApp.OpenReport( "c:\Report1.rpt ")

CRViewer91.ReportSource = CrxRep
CRViewer91.ViewReport

Set crxDatabase = Nothing
Set crxDatabaseTable = Nothing
Set crxDatabaseTables = Nothing
Set crxReport = Nothing
Set crxApplication = Nothing

End Sub

如上代码，显示报表时，左边有个预览栏，如何去掉？

[解决办法]
那我来接分