Export Crystal Reports to PDF

Use this code when you're developing Web pages and you need to export Crystal Reports to PDF without creating their own files. The undocument FormatEngine property of ReportDocument class (you can see it using ObjectBrowser or ILDASM) gets the job done:


    Private Sub ExportToPDF(ByVal oRpt As ReportDocument)
        Dim crExportOptions As ExportOptions

        crExportOptions = oRpt.ExportOptions
        With crExportOptions
            .FormatOptions = New PdfRtfWordFormatOptions()
            .ExportFormatType = ExportFormatType.PortableDocFormat
        End With

        Dim req As ExportRequestContext = New ExportRequestContext()
        req.ExportInfo = crExportOptions

        Dim st As System.IO.Stream
        st = oRpt.FormatEngine.ExportToStream(req)

        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = "application/pdf"

        Dim b(st.Length) As Byte
        st.Read(b, 0, st.Length)
        Response.BinaryWrite(b)

        Response.End()
    End Sub

DevX Staff

Submit a Tip

Browse "Visual Basic" Tips

Browse All Tips

0 Comments (click to add your comment)

Comment and Contribute