17-10-12, 05:30 PM
كاتب الموضوع : AhmedEssawy
كود :
' ----------------------------------------
' 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()