VB.NET通过代码导出RDLC报表

本次分享VB,NET如何通过代码把生成的RDLC报表导出，首先在程序的开头添加如下代码。

Imports System.IO
Imports Microsoft.Reporting.WinForms

引入后再输入下边代码

         Dim warnings() As Warning
        Dim streamids() As String
        Dim mimeType As String
        Dim encode As String
        Dim extension As String
        Dim bytes() As Byte
        bytes = ReportViewer1.LocalReport.Render("Word", "", mimeType, encode, extension, streamids, warnings)
        Dim fs As FileStream = New FileStream(Application.StartupPath & "\123.doc", FileMode.Create)
        fs.Write(bytes, 0, bytes.Length)
        fs.Close()

这是把自己制作的RDLC报表，存储为WORD格式，存储到程序的启动目录下。如果想换为其它格式，则在上边第7句程序内将Word改为其它关键字，如PDF，以上就是代码部分。