如何把水晶报表内容导出后直接保存到客户端

梦想成真2003 2005-06-15 04:52:38

Private Sub DOC_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DOC_Button.Click
Dim myExportOptions As CrystalDecisions.Shared.ExportOptions
Dim myDiskFileDestinationOptions As CrystalDecisions.Shared.DiskFileDestinationOptions
Dim myExportFile As String
Dim myReport As New web_printing_report

myExportFile = "e:\CrystalReports\DocTest.doc"
myDiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions
myDiskFileDestinationOptions.DiskFileName = myExportFile
myExportOptions = myReport.ExportOptions
With myExportOptions
.DestinationOptions = myDiskFileDestinationOptions
.ExportDestinationType = .ExportDestinationType.DiskFile
.ExportFormatType = .ExportFormatType.WordForWindows
End With

myReport.Export()

Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/msword"
Response.WriteFile(myExportFile)
Response.Flush()
Response.Close()

'System.IO.File.Delete(myExportFile)
End Sub

能在我的e:\CrystalReports\建立一个DocTest.doc文件，可是运行后我却在IE中看不到任何内容（即一个空白页），而如果直接到硬盘中打开这个DocTest.doc文件却能够看到报表的内容，
尝是excel文件也是如此。pdf文件却可以显示，但是不能要求客户都安装那个软件
这是为什么？

...全文