لعمل Export لكريستال ريبورت إلى ملف pdf

كود :
' ----------------------------------------

' Required Imports :

'

' System

' CrystalDecisions.CrystalReports.Engine

' CrystalDecisions.Shared

' ----------------------------------------

Dim report As New ReportDocument()

Dim exportOptions As New ExportOptions()

Dim pdfExportFormatOptions As New PdfRtfWordFormatOptions()

Dim diskDestinationOptions As New DiskFileDestinationOptions()

' Set the export format and format options

exportOptions.ExportFormatType = ExportFormatType.PortableDocFormat

pdfExportFormatOptions.FirstPageNumber = 1

pdfExportFormatOptions.LastPageNumber = 5

pdfExportFormatOptions.UsePageRange = True

exportOptions.ExportFormatOptions = pdfExportFormatOptions

' Set the disk file options.

exportOptions.ExportDestinationType = ExportDestinationType.DiskFile

diskDestinationOptions.DiskFileName = "C:\My Crystal Reports\Report Name.pdf"

exportOptions.DestinationOptions = diskDestinationOptions

report.Load("C:\My Crystal Reports\Report Name.rpt")

report.Export(exportOptions)

report.Close()