水晶报表9导出文件时，如何不显示导出对话框，急。。。

Question

各位大侠，如果在将水晶报表导出时不显示导出对话框，而只在代码中直接完成。急用，谢谢各位

Answer 1

'导出到EXCEL
            Dim myExportFile As String
            myExportFile = App.Path + "\temp.xls"
            If wjfilesys.FileExists(myExportFile) Then            wjfilesys.DeleteFile (myExportFile)
            End If
            Report.ExportOptions.DiskFileName = myExportFile
            Report.ExportOptions.FormatType = crEFTExcel97
            Report.ExportOptions.DestinationType = crEDTDiskFile
            Report.ExportOptions.PDFExportAllPages = True
            Report.Export (False)