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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
