Public Sub DoHTMLExport()
    If Grid Is Nothing Then Exit Sub
    If Grid.Rows = 0 Then Exit Sub
 
    Grid.HTMLShowNavigation = False
    Grid.ReportStatusText = ""
    Grid.HTMLUseScreenFormating = True
    RaiseEvent ReportStart
    Grid.DoHTMLReport Folder_Temp & "export.htm"
    RaiseEvent ReportFinish
    Grid.HTMLShowReportModal
    Grid.HTMLKillFiles
End Sub
 
Public Function DoXLSExport(optional sPath as String) As Boolean
    Dim lret As Long
    Dim sFilter As String
    If trim(sPath) ="" Then
        sFilter = "Excel File (*.xls)|*.xls|CSV File (*.csv)|*.csv"
        lret = cdlgSaveFile(sPath, "Export speichern ...", CurDir$, sFilter, _
          "xls", Grid.hwnd, 0)
    End If
    If lret = 0 Then Exit Function
 
    If LCase$(GetFilenameExt(sPath)) = "csv" Then
        Call Grid.DoExport(sPath, EXPORT_CSV, , , EXPORT_FIELD_DISPLAYVALUE, , _
          , ";")
    Else
        Call Grid.DoExport(sPath, EXPORT_XLS, , , EXPORT_FIELD_DISPLAYVALUE)
    End If
    ExportGrid = True
End Function

set GridButton.Grid = sevGrid1
GridButton.LoadColumnMenu

-------------------------------------------
Follow the White Rabbit !!!