水晶报表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
如上代码，显示报表时，左边有个预览栏，如何去掉？
[解决办法]
那我来接分
