报表转pdf问题

Question

webform  SSRS + reportviewer 做得报表，有一个ID的参数，输入ID选择查看这个ID的报表，现在需要把所有报表一次批量转化为pdf格式存储在服务器上，请问有什么好的解决办法
解决加分

Answer 1

参考一下
 Dim AuditInv As New DVDWarehouse
        ReportViewer1.ProcessingMode = ProcessingMode.Local
        Dim rep As LocalReport = ReportViewer1.LocalReport
        rep.ReportPath = "InventoryAudit.rdlc"        Dim dt As DataTable = AuditInv.GetDataTable("Select Inventory.BoxID, Inventory.SKU, DVDInfo.Title, Inventory.ItemCount from Inventory, DVDInfo where DVDInfo.SKU = Inventory.SKU ORDER by BoxID", "Inventory")        Dim dsAudit As New ReportDataSource
        dsAudit.Name = "InventoryAudit_InventoryAudit"
        dsAudit.Value = dt
        rep.DataSources.Clear()
        rep.DataSources.Add(dsAudit) 
        Dim warnings As Microsoft.Reporting.WebForms.Warning() = Nothing
        Dim streamids As String() = Nothing
        Dim mimeType As String = Nothing
        Dim encoding As String = Nothing
        Dim extension As String = Nothing
        Dim DeviceInfo As String = "<DeviceInfo>" _
            & "  <OutputFormat>PDF</OutputFormat>" _
            & "  <PageWidth>8.5in</PageWidth>" _
            & "  <PageHeight>11.5in</PageHeight>" _
            & "  <MarginTop>0.6in</MarginTop>" _
            & "  <MarginLeft>0.6in</MarginLeft>" _
            & "  <MarginRight>0.4in</MarginRight>" _
            & "  <MarginBottom>0.4in</MarginBottom>" _
            & "</DeviceInfo>"
        Dim bytes As Byte()
        bytes = ReportViewer1.LocalReport.Render("PDF", DeviceInfo, mimeType, encoding, extension, streamids, warnings)
        Response.Clear()
        Response.ContentType = mimeType
        Response.AddHeader("content-disposition", "attachment; filename=Test." & extension)
        Response.BinaryWrite(bytes)
        Response.End() 

Answer 2

解决了，这儿需要把
Dim rep As LocalReport = ReportViewer1.LocalReport 
改为ReportViewer1.ServerReport.Render
因为我用得是服务器报表