65.9K
CodeProject is changing. Read more.
Home

Generate a PDF document from exported stream of a crystal report

emptyStarIconemptyStarIconemptyStarIconemptyStarIconemptyStarIcon

0/5 (0 vote)

Apr 23, 2010

CPOL
viewsIcon

19370

I have a report which can be viewed in Crystal Report viewer in VS. Client needs to generate a PDF file with a click of a button and the PDF should pop up upon finishing exporting and let the client decide where to save the file.'vb.netImports...

I have a report which can be viewed in Crystal Report viewer in VS. Client needs to generate a PDF file with a click of a button and the PDF should pop up upon finishing exporting and let the client decide where to save the file.
'vb.net
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.IO
Imports QuoteManager
Imports System.Web
Public Class frmQuoteRptPreview
    Private objRpt As rptQuotation

    Public Overloads Sub ShowDialog(ByVal objQuoteH As DataTable, ByVal objQuoteD As DataTable, ByVal strService As String, ByVal strSales As String, _
                                    ByVal strQuotedBy As String, ByVal strQuoteRef As String, ByVal parent As IWin32Window)
        Dim objDataset As New DataSet
        objDataset.Tables.Add(objQuoteH.Copy())
        objDataset.Tables.Add(objQuoteD.Copy())
        objDataset.Relations.Add("MD", objDataset.Tables(0).Columns("RecID"), objDataset.Tables(1).Columns("QuoteID"))
        objRpt = New rptQuotation
        objRpt.SetDataSource(objDataset)
        objRpt.SetParameterValue(0, strService)
        objRpt.SetParameterValue(1, strQuotedBy)
        objRpt.SetParameterValue(2, strSales)
        objRpt.SetParameterValue(3, strQuoteRef)
        crvQuotes.ReportSource = objRpt
        ' Show the dialog
        Me.ShowDialog(parent)
    End Sub
    Private Sub msExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msExit.Click
        Me.Close()
    End Sub
    Private Sub msGPDF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msGPDF.Click

        Dim s As System.IO.MemoryStream = objRpt.ExportToStream(ExportFormatType.PortableDocFormat)
        Dim fs As System.IO.FileStream
        Dim w As System.IO.BinaryWriter
        'will generate in the app foot folder
        fs = New System.IO.FileStream("Report.pdf", IO.FileMode.OpenOrCreate)
        w = New System.IO.BinaryWriter(fs)
        w.Seek(0, System.IO.SeekOrigin.Begin)
        w.Write(s.ToArray)
        w.Close()
        fs.Close()
        System.Diagnostics.Process.Start(fs.Name)

    End Sub
End Class
Hope this is helpful.