请教各位高手：把 crystral report 报表导出为word 文档老出错，麻烦大家一起研究！！！ 在线等候！！！

Question

有承认眼crystal Report 高手吗？

Answer 1

看看这个!希望有用!
   Dim crReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim crExportOptions As CrystalDecisions.Shared.ExportOptions
    Dim crDiskFileDestinationOptions As CrystalDecisions.Shared.DiskFileDestinationOptions
    Dim Fname As String
    Dim ExportType As CrystalDecisions.Shared.ExportFormatType
    Dim sContentType As String    Dim dw_countsheet As DataTable
    Private Property ds() As DataSet
        Get
            Return Session("ds")
        End Get
        Set(ByVal Value As DataSet)
            Session("ds") = Value
        End Set
    End Property
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not IsPostBack Then
            gstr_current_info.genrtr_no = "GEN100"
            gstr_current_info.work_order_no = "ALAN"
            open()
        End If
        crReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        ' crReportDocument.Load(Page.MapPath("..\Reports\SafetySheetPrint.rpt"))
        crReportDocument.Load(Page.MapPath(".") & "\Reports\SafetySheetPrint.rpt")
        Dim oDatabase As CrystalDecisions.CrystalReports.Engine.Database = crReportDocument.Database
        Dim oTable As CrystalDecisions.CrystalReports.Engine.Table = crReportDocument.Database.Tables(0)        oTable.SetDataSource(ds)
        crViewer.ReportSource = crReportDocument
        crViewer.DisplayGroupTree = False    
    ExportType = ExportFormatType.WordForWindows
                Fname = Server.MapPath(".\temp\" & Session.SessionID.ToString & ".doc")
                sContentType = "application/msword"
         
        crDiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()
        crDiskFileDestinationOptions.DiskFileName = Fname
        crExportOptions = crReportDocument.ExportOptions
        With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            .ExportDestinationType = ExportDestinationType.DiskFile
            .ExportFormatType = ExportType
        End With
        'On Error Resume Next
        crReportDocument.Export()        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = sContentType
        Response.WriteFile(Fname)
        Response.Flush()
        Response.Close()        System.IO.File.Delete(Fname)
End Sub