[asemshahen5]

جرب هذا الكود :

PHP كود :

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Private Sub BtnExportToExcel_Click(sender As Object, e As EventArgs) Handles BtnExportToExcel.Click
    Dim CrExportOptions As ExportOptions
    Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
    Dim CrFormatTypeOptions As New ExcelFormatOptions
    CrDiskFileDestinationOptions.DiskFileName = "D:\crystalExport.xls"
    CrExportOptions = rpt1.ExportOptions
    With CrExportOptions
        .ExportDestinationType = ExportDestinationType.DiskFile
        .ExportFormatType = ExportFormatType.Excel
        .DestinationOptions = CrDiskFileDestinationOptions
        .FormatOptions = CrFormatTypeOptions
    End With
    rpt1.Export()
End Sub