crystal report预览问题？

[jason1111]

环境：vb6.0+crystal report9.0。
Dim CRY As CRAXDRT.Report
Dim CRYAT As CRAXDRT.Application

Set CRYAT = New CRAXDRT.Application

Set CRY = CRYAT.OpenReport(App.Path & "\msrpt.rpt")
cr9.ReportSource = CRY
cr9.ViewReport
请问在预览时怎么设置最大化，关闭按键不能用？能在预览中象crystal report 编辑中具有导出文件的功能吗？怎么实现？

[minajo21]

最大化
cr9.WindowState = crptMaximized

导出
cr9.Destination = crptToFile

[jason1111]

cr9中没有WindowState和Destination的方法选择，而且还提示crptMaximized和crptToFile未定义？