MS

app/DD_PM_WINDREAM/frmMain.vb

@@ -14,6 +14,7 @@ Imports System.ComponentModel
 Imports System.IO
 Imports System.Drawing.Imaging
 Imports Microsoft.Office.Interop
+Imports DevExpress.XtraPrinting
 
 Public Class frmMain
     Private UserLoggedin As Integer = 0
@@ -931,6 +932,7 @@ Public Class frmMain
             Else
                 tsmiMarkedFilesFinish.Visible = True
                 ToolStripSeparator4.Visible = True
+
                 GridView_Docs.OptionsSelection.MultiSelect = True
                 GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
             End If
@@ -2206,4 +2208,17 @@ Public Class frmMain
 
         End Try
     End Sub
+
+    Private Sub ExportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportierenToolStripMenuItem.Click
+        XtraSaveFileDialog1.FileName = "OverviewProcessManager.xlsx"
+        XtraSaveFileDialog1.DefaultExt = ".xlsx"
+
+            If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
+                Dim oOptions As New XlsxExportOptions() With {
+                    .ExportMode = XlsxExportMode.SingleFile
+                }
+                GridView_Docs.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
+            End If
+
+    End Sub
 End Class