ms

app/DD-Record-Organizer/frmUserKonfig.vb

@@ -652,4 +652,26 @@ Public Class frmUserKonfig
             row.Item(0) = CBool(False)
         Next
     End Sub
+
+    Private Sub tsbtnExoirtExcel_Click(sender As Object, e As EventArgs) Handles tsbtnExoirtExcel.Click
+        Dim saveFileDialog1 As New SaveFileDialog
+        saveFileDialog1.Filter = "Excel File|*.xlsx"
+        saveFileDialog1.Title = "Export to Excel:"
+        saveFileDialog1.ShowDialog()
+        If saveFileDialog1.FileName <> "" Then
+            Cursor = Cursors.WaitCursor
+            GridControlUser.MainView.ExportToXlsx(saveFileDialog1.FileName)
+            Dim result As MsgBoxResult
+            Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
+
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = String.Format("File was created. Do You want to open excel?")
+            End If
+            result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            If result = MsgBoxResult.Yes Then
+                Process.Start(saveFileDialog1.FileName)
+            End If
+        End If
+        Cursor = Cursors.Default
+    End Sub
 End Class