how to export the reports into pdf format

Question

0.00/5 (No votes)

See more:

hi..
i've created a crystal report and one crystal report viewer in windows form.
i've two form form1 and form2 in form2 i've kept one button called print.
when i press this button it should print the document into .pdf format.
without using the crystal report viewers print button.
please help me

Posted 21-Sep-10 1:01am

vinu.1111

Add a Solution

1 solution

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)

Tom Deketelaere · Answer 1 · 2010-09-21T02:42:00

The function below will do what you want, you'll need to adjust it a bit tho (had to translate some variables) and some things might not be needed for you (setting params / reconnecting ) but I'm sure you'll be able to adjust it to your needs.

VB

Public Shared Sub PrintToPDF(ByVal Reportname As String, ByVal params As List(Of ReportParameters), Optional ByVal path As String = "")
        Try
            Dim rpt As New ReportDocument
            If Reportnaam.EndsWith(".rpt") Then Reportnaam = Reportnaam.Replace(".rpt", "")
            Dim file As String = 'path to the report file
            If IO.File.Exists(file) = False Then
                'report could not be found
                Exit Sub
            End If
            rpt.Load(file)
            rpt = reconnectreport(rpt)
            If params IsNot Nothing AndAlso params.Count > 0 Then
                For Each c As ReportParameters In params
                    rpt.SetParameterValue(c.ParamNaam, c.ParamValue)
                Next
            End If
            If String.IsNullOrEmpty(path) Then
                Dim ofd As New SaveFileDialog
                ofd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
                ofd.Filter = ".pdf|PDF"
                If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Dim path As String = ofd.FileName
                    If path.EndsWith(".pdf") = False Then path &= ".pdf"
                    pad = path
                End If
            End If
            If Not String.IsNullOrEmpty(pad) Then
'exports the report to pdf
                rpt.ExportToDisk(ExportFormatType.PortableDocFormat, pad)
            End If
            'rpt.Dispose()
            'rpt = Nothing
        Catch ex As Exception
            JoroLogging.AddLog(ex, GetCurrentMethod.DeclaringType.Name, GetCurrentMethod.Name)
        End Try
    End Sub