Export to PDF using Crystal Report.

Private Sub ExportToPdf(ByVal rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal fileName As String)

        If fileName Is Nothing Then fileName = "DelinquencyReport"

        Dim cr As CrystalDecisions.CrystalReports.Engine.ReportDocument = rpt

        Dim reportName As String = "/" & fileName & ".pdf"

        Dim strFile As String = Server.MapPath(Global.REPORT_LOCATION) & reportName

        cr.ExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile

        cr.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat

        Dim dskOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions

        dskOptions.DiskFileName = strFile

        cr.ExportOptions.DestinationOptions = dskOptions

        Try

            cr.Export()

            Page.RegisterStartupScript("ExportToPdf", "<script language=Javascript>window.open('" & Global.REPORT_LOCATION_REDIRECTION & reportName & "','_blank');</script>")

        Catch ex As Exception

            Throw ex

        Finally

            dskOptions = Nothing

            cr = Nothing

        End Try

    End Sub

----------

Try

            repDoc = VendorInvoice.GetVendorInvoiceInformation(InvoiceType, IsPosted, Query)

            ExportToPdf(repDoc, "VendorInvoiceReport")

            'Session(Global.REPORT_DOCUMENT_SESSION_OBJECT) = repDoc

            'Global.GotoControl(Page, Global.REPORT_VIEWER)

        Catch ex As Exception

            DisplayMessage(ex.Message)

        Finally

            repDoc = Nothing

            VendorInvoice = Nothing

        End Try