[Zuhare]

الكود منقول

PHP كود :

Dim cryRpt As New CrystalReport1
cryRpt.SetDataSource(DataSet1)

        'Export crystal report as PDF
        '
        Dim CrystalDiskFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions
        CrystalDiskFileDestinationOptions.DiskFileName = Application.StartupPath & "\crystalExport.pdf"
        Dim CrystalFormatTypeOptions As New CrystalDecisions.Shared.PdfRtfWordFormatOptions
        Dim CrystalExportOptions As CrystalDecisions.Shared.ExportOptions
        CrystalExportOptions = cryRpt.ExportOptions
        CrystalExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
        CrystalExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
        CrystalExportOptions.DestinationOptions = CrystalDiskFileDestinationOptions
        CrystalExportOptions.FormatOptions = CrystalFormatTypeOptions
        cryRpt.Export()