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

Question

0.00/5 (No votes)

See more:

Hi..
I developing the report system, i am using RDLC for Generate report, i am almost finish my report work,now my problem is the report is automatically create in Pdf format and send the particular client email-id,i don't how it's possible, so pls send your ideas,
pls help me...

Posted 15-Aug-13 0:44am

sv sathish

Add a Solution

4 solutions

Solution 1

Have a look at these...
How to export rdlc report to PDF without using ReportViewer[^]
how to programatically save RDLC report in PDF format using vb.net[^]
Save PDF file from RDLC Reports[^]
Save RDLC reports as PDF programatically[^]

Posted 15-Aug-13 0:52am

ridoy

Updated 15-Aug-13 0:53am

v3

Solution 2

Try this code:

C#

'Create an instance of ReportViewer
    
Dim viewer As New Microsoft.Reporting.WinForms.ReportViewer()

    'Set local report
    'NOTE: MyAppNamespace refers to the namespace for the app.
    viewer.LocalReport.ReportEmbeddedResource = "MyAppNamespace.Report1.rdlc"
                
    'Create Report Data Source
    Dim rptDataSource As New Microsoft.Reporting.WinForms.ReportDataSource("Product", data)
    viewer.LocalReport.DataSources.Add(rptDataSource)

    'Export to PDF. Get binary content.
    Dim pdfContent As Byte() = viewer.LocalReport.Render("PDF", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)

    'Creatr PDF file on disk
    Dim pdfPath As String = "C:\temp\report.pdf"
    Dim pdfFile As New System.IO.FileStream(pdfPath, System.IO.FileMode.Create)
    pdfFile.Write(pdfContent, 0, pdfContent.Length)
    pdfFile.Close()

Posted 15-Aug-13 0:52am

Marc Gabrie

Comments

sv sathish 15-Aug-13 7:01am

It's showing error in Create Report Data Source. in this code what's mean by ("Product,data")

Marc Gabrie 15-Aug-13 7:34am

Does your report have a data source? if yes, then:

"Product": you must change it to match the name of your report's data source name
data: it must be your data source obj e.g. a DataTable, a Collection, etc.

Member 12857508 5-Apr-17 10:31am

Awesome, thanks!

Solution 4

Dim Bytes() As Byte = ReportViewer1.LocalReport.Render("PDF", "", Nothing, Nothing, Nothing, Nothing, Nothing)
Using Stream As New FileStream("D:\CabDB\Vouchers\" & cboVoucherNo.SelectedItem & ".pdf", FileMode.Create)
Stream.Write(Bytes, 0, Bytes.Length)
MsgBox("PDF File Exported Successfully.", MsgBoxStyle.Information, "PDF Exported")
End Using

Posted 15-Jun-15 23:25pm

Remoddn

Comments

CHill60 16-Jun-15 5:37am

If you have a question of your own use the "Ask a Question" link. Don't post questions as solutions to old posts

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

sv sathish · Accepted Answer · 2013-09-19T08:41:00

I Solve this problem in simple code, my code is below

VB

Dim byteViewer As Byte() = ReportViewer1.LocalReport.Render("PDF")
            Dim saveFileDialog1 As New SaveFileDialog()
            saveFileDialog1.Filter = "*PDF files (*.pdf)|*.pdf"
            saveFileDialog1.FilterIndex = 2
            saveFileDialog1.RestoreDirectory = True
            Dim newFile As New FileStream("D:\Company Reckon Invoice(ExE)\PDF Files\Invoice Due Details" & clientno & ".pdf", FileMode.Create)
            newFile.Write(byteViewer, 0, byteViewer.Length)
            newFile.Close()