水晶报表导出操作及动态更改报表中的文本字段

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form1
    Dim ExOPS As ExportOptions
    Dim ReportDoc As ReportDocument = New ReportDocument
    Dim logOnInfo As ReportInfo = New ReportInfo
    Dim FileOPS As DiskFileDestinationOptions = New DiskFileDestinationOptions

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ds As DataSet1 = New DataSet1
        ds.temptable.AddtemptableRow("熊川湘", 12)
        ds.temptable.AddtemptableRow("唐沙", 24)
        Dim cry As CrystalReport1 = New CrystalReport1
        '程序外控制报表的标题
        Dim to1 As CrystalDecisions.CrystalReports.Engine.TextObject
        to1 = CType(cry.ReportDefinition.ReportObjects("text3"), CrystalDecisions.CrystalReports.Engine.TextObject)
        to1.Text = "tttt"
        cry.SetDataSource(ds.Tables("temptable"))
        'cry.ExportToDisk(ExportFormatType.PortableDocFormat, "d:\\c.pdf") ''转换成PDF
        'cry.ExportToDisk(ExportFormatType.WordForWindows, "d:\\c.doc")''转换成doc
        cry.ExportToDisk(ExportFormatType.Excel, "d:\\c.xls") ''转换成xls
        CrystalReportViewer1.ReportSource = cry
        table1 = ds.Tables("temptable")
    End Sub
    Dim table1 As DataTable = New DataTable

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' ExportToPDF("d:\\CrystalReport1.rpt", Me.table1, "d:\\c.doc")

        ExportToExcel("d:\\CrystalReport1.rpt", Me.table1, "d:\\c.xls")

    End Sub
  
    ''' <summary>
    ''' 导出报表文件为PDF格式
    ''' </summary>
    ''' <param name="ReportFile">报表文件名称,调用时请使用Server.MapPath("报表文件.rpt")这样来给这个参数</param>
    ''' <param name="ReportDataSource">报表文件所使用的数据源,是一个Dataset</param>
    ''' <param name="PDFFileName">你要导成的目标文件名称,注意不要放在wwwroot等目录中,iis会不让你导出的</param>
    ''' <returns>bool成功返回true,失败返回false</returns>
    Public Function ExportToPDF(ByVal ReportFile As String, ByVal ReportDataSource As Object, ByVal PDFFileName As String) As Boolean
      
        Try
            ReportDoc.Load(ReportFile)
            ReportDoc.SetDataSource(ReportDataSource)
            FileOPS.DiskFileName = PDFFileName
            ExOPS = ReportDoc.ExportOptions
            ExOPS.DestinationOptions = FileOPS
            ExOPS.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
            ExOPS.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
            ReportDoc.Export()
            Return True
        Catch
            Return False
        End Try
    End Function

    ''' <summary>
    ''' 导出报表文件到Excel格式
    ''' </summary>
    ''' <param name="ReportFile">报表文件名称,调用时请使用Server.MapPath("报表文件.rpt")这样来给这个参数</param>
    ''' <param name="ReportDataSource">报表文件所使用的数据源,是一个Dataset</param>
    ''' <param name="ExcelFileName">你要导成的目标文件名称,注意不要放在wwwroot等目录中,iis会不让你导出的</param>
    ''' <returns>成功返回true失败返回false</returns>
    Public Function ExportToExcel(ByVal ReportFile As String, ByVal ReportDataSource As Object, ByVal ExcelFileName As String) As Boolean
        Try
            ReportDoc.Load(ReportFile)
            ReportDoc.SetDataSource(ReportDataSource)
            FileOPS.DiskFileName = ExcelFileName
            ExOPS = ReportDoc.ExportOptions
            ExOPS.DestinationOptions = FileOPS
            ExOPS.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
            ExOPS.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.Excel
            ReportDoc.Export()
            Return True
        Catch
            Return False
        End Try
    End Function

 

End Class