VB中,水晶报表如何实现导出?

来源:百度知道 编辑:UC知道 时间:2024/06/04 20:06:58
我在VB中用水晶报表做的报表,请问如何实现导出,word或excel格式都可以,谢谢

报表设置好后
在预览后导出 否则只有标题

Dim exportOpts As CRAXDRT.ExportOptions
Set exportOpts = Report.ExportOptions
exportOpts.DestinationType = crEDTDiskFile
exportOpts.DiskFileName = "D:\text.xls"
exportOpts.FormatType = crEFTExcel97 'Excel97格式
exportOpts.ExcelExportAllPages = True '导出所有页码

Report.Export (False)