如何使用vb.net以PDF格式以编程方式保存RDLC报告 [英] how to programatically save RDLC report in PDF format using vb.net

问题描述

嗨...

i在vb.net中创建报表开发，我想以pdf格式自动保存rdlc报告。发送你的代码..

解决方案

我可以帮助导出，不知道如何打印 - 我只有一个C＃示例：



出口到EXCEL或PDF



报告上有一个按钮，允许用户导出为ex​​cel或pdf。但是，如果您想使用代码强制导出，只需添加以下代码：

  private   void  exportToExcel（ string  DestWhereExcelFileWillBe）
 
 {
 
 System.IO.FileInfo fi =  new  System.IO.FileInfo（DestWhereExcelFileWillBe）; 
 
  if （fi.Exists）fi.Delete（）; 
 
警告[]警告; 
 
  string  [] streamids; 
 
  string  mimeType，encoding，filenameExtension; 
 
  byte  [] bytes = reportViewer1.LocalReport.Render（  Excel， null ， out  mimeType， out 编码， out  filenameExtension，
 
  out  streamids， out 警告）; 
 
 System.IO.FileStream fs = System.IO.File.Create（DestWhereExcelFileWillBe）; 
 
 fs.Write（bytes， 0 ，bytes.Length）; 
 
 fs.Close（）; 
 
} 

或VB.Net代码示例此处



我用来生成PDF格式的单个报告的代码是：

  Dim 警告作为 Microsoft.Reporting.WebForms.Warning（）=  Nothing  
 
  Dim  streamids  As  字符串（）= 没什么 
 
  Dim  mimeType 作为 字符串 = 没什么 
 
  Dim 编码 As   String  = 没什么 
 
  Dim  extension 为 字符串 = 没什么 
 
  Dim  deviceInfo  As   String  
 
  Dim  bytes  As   Byte （）
 
  Dim  lr  As  新 Microsoft.Reporting .WebForms.LocalReport 
 
 deviceInfo =  < deviceinfo>< simplepageheaders> True< / simplepageheaders>< / deviceinfo> 
 
 bytes = ReportViewer1.LocalReport.Render（  PDF，deviceInfo，mimeType，encoding，extension，streamids，warnings）
 
 Response.ClearContent（）
 
 Response.ClearHeaders（）
 
 Response.Conten tType =   application / pdf 
 
 Response.BinaryWrite（bytes）
 
 Response.Flush（）
 
 Response.Close（）
 

[由MK编辑] 解决方案来源

此问题已解决，请参阅解决方案，请转到



如何在vb.net中以Pdf格式保存RDLC报告Windows应用程序 [ ^ ]

我在这里做同样的代码我的代码：

  Imports  Microsoft.Reporting.WinForms 
 公开 类 Form1 
 公共 属性 strReport 作为 字符串 
 私有  Sub  Form1_Load（发件人作为 对象，e  As  EventArgs）句柄  MyBase  .Load 
  Me  .companyTableAdapter.Fill（ Me  .invoicedbDataSet.company ）
  Dim  rptDataSource  As  ReportDataSource 
 尝试 
 使用 我 .ReportViewer1.LocalReport 
 .DataSources.Clear（）
 结束 使用 
 
  Dim  ds 作为 新报告。 invoicedbDataSet 
  Dim  da  As  新 report.invoicedbDataSetTableAdapters.companyTableAdapter 
 da.Fill（ds.company）
 rptDataSource = 新 ReportDataSource（  DataSet1，ds.Tables（  company））
  Me  .ReportViewer1.LocalReport.DataSources.Add（rptDataSource）
 我 .ReportViewer1.RefreshReport（）
 
  Catch  ex  As  Exception 
 MessageBox.Show（ex.Message，My.Application.Info.Title， MessageBoxButtons.OK，MessageBoxIcon。错误）
 结束 尝试 
 我 .ReportViewer1.RefreshReport（）
 结束  Sub  
 结束 类 

hi...
i creating report development in vb.net,i want to save the rdlc report automatically in pdf format.pls send your code..

解决方案

I can help with the export, not sure how to print - and I only have a C# example:

EXPORT TO EXCEL OR PDF

There is a button on the report allowing the user to export to excel or pdf. However, if you want to force an export using code, just add this code:

private void exportToExcel(string DestWhereExcelFileWillBe)

{

System.IO.FileInfo fi = new System.IO.FileInfo(DestWhereExcelFileWillBe);

if (fi.Exists) fi.Delete();

Warning[] warnings;

string[] streamids;

string mimeType, encoding, filenameExtension;

byte[] bytes = reportViewer1.LocalReport.Render( "Excel", null, out mimeType, out encoding, out filenameExtension,

out streamids, out warnings);

System.IO.FileStream fs = System.IO.File.Create(DestWhereExcelFileWillBe);

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

fs.Close();

}

or VB.Net Code Example Here

The code I use to Generate a single report as a PDF is:

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

Dim bytes As Byte()

Dim lr As New Microsoft.Reporting.WebForms.LocalReport

deviceInfo = "<deviceinfo><simplepageheaders>True</simplepageheaders></deviceinfo>"

bytes = ReportViewer1.LocalReport.Render("PDF", deviceInfo, mimeType, encoding, extension, streamids, warnings)

Response.ClearContent()

Response.ClearHeaders()

Response.ContentType = "application/pdf"

Response.BinaryWrite(bytes)

Response.Flush()

Response.Close()

[Edit by MK] Solution Source

This problem is solved see the solution means go to

How to save RDLC report in Pdf format in vb.net windows application[^]

i doing same code for here My code:

Imports Microsoft.Reporting.WinForms
Public Class Form1
    Public Property strReport As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.companyTableAdapter.Fill(Me.invoicedbDataSet.company)
        Dim rptDataSource As ReportDataSource
        Try
            With Me.ReportViewer1.LocalReport
                .DataSources.Clear()
            End With

            Dim ds As New report.invoicedbDataSet
            Dim da As New report.invoicedbDataSetTableAdapters.companyTableAdapter
            da.Fill(ds.company)
            rptDataSource = New ReportDataSource("DataSet1", ds.Tables("company"))
            Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)
            Me.ReportViewer1.RefreshReport()

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

这篇关于如何使用vb.net以PDF格式以编程方式保存RDLC报告的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！