none
ReportViewer 匯出 Word RRS feed

  • 問題

  • 請教 ReportViewer 是否可匯出Word
    Me.ReportViewer1.LocalReport.Render("Excel", 以下省略... )

    Me.ReportViewer1.LocalReport.Render("Word", 以下省略... ) 執行發生錯誤

    ReportViewer 是否僅能匯出PDF及Excel,如果我想要匯出Word有沒有什麼辨法呢?

    2009年1月30日 上午 03:26

解答

  • 在VS2005的Server Report才有Word,如果使用Local Report, 則只有Excel跟PDF.

    因為VS2008跟VS2005是使用同一個規格開發,所以在VS2K8上也是沒有WORD可用。

    只能看看VS2010的ReportViewer(據說是使用SQL2K8的規格下去弄), 如果可匯出,到時看看能不能在套用上去.

     


    LOLOTA - 微軟技術支援中心(CSS) - http://blog.lolota.net
    • 已提議為解答 MoliWang 2009年1月31日 上午 03:03
    • 已標示為解答 Marty Lin 2009年1月31日 上午 04:18
    2009年1月30日 上午 08:26
    版主

所有回覆

  • 在VS2005的Server Report才有Word,如果使用Local Report, 則只有Excel跟PDF.

    因為VS2008跟VS2005是使用同一個規格開發,所以在VS2K8上也是沒有WORD可用。

    只能看看VS2010的ReportViewer(據說是使用SQL2K8的規格下去弄), 如果可匯出,到時看看能不能在套用上去.

     


    LOLOTA - 微軟技術支援中心(CSS) - http://blog.lolota.net
    • 已提議為解答 MoliWang 2009年1月31日 上午 03:03
    • 已標示為解答 Marty Lin 2009年1月31日 上午 04:18
    2009年1月30日 上午 08:26
    版主
  • 请问一下,用命令Dim bytes() As Byte = Me.ReportViewer1.LocalReport.Render("EXCEL", DBNull.Value.ToString, strMimeType, strEncoding, strFileNameExtension, strStreamIds, warnings)是可以导出Excel。那导出PDF应该怎样写呢?请大侠请教,谢谢了。
    2009年8月3日 下午 12:50
  • 您可以參考下列寫法:

    Dim warnings As Warning() = Nothing

            Dim streamids As String () = Nothing

            Dim mimeType As String = Nothing

            Dim encoding As String = Nothing

            Dim extension As String = Nothing

            Dim bytes As Byte ()

     

            'Get folder on web server from web.config

            Dim FolderLocation As String

            FolderLocation = System.Configuration.ConfigurationManager.AppSettings("ReportOutputPath" )

     

            'First delete existing file

            Dim filepath As String = FolderLocation & "PCSummary.PDF"

            File.Delete(filepath)

     

            'Then create new pdf file

            bytes = ReportViewer1.LocalReport.Render("PDF" , Nothing , mimeType, _

                encoding, extension, streamids, warnings)

     

            Dim fs As New FileStream(FolderLocation & "PCSummary.PDF" , FileMode.Create)

            fs.Write(bytes, 0, bytes.Length)

            fs.Close()


    微軟技術支援中心(CSS) - http://www.dotblogs.com.tw/lolota/
    2009年8月4日 上午 12:57