MS Changes OrderFiles, TFA without OPhone

EnvelopeGenerator.Form/frmMain.vb

@@ -12,6 +12,7 @@ Imports EnvelopeGenerator.Common
 Imports EnvelopeGenerator.Common.My
 Imports System.Diagnostics
 Imports System.ComponentModel
+Imports DevExpress.XtraPrinting
 
 Public Class frmMain
     Private ReadOnly LogConfig As LogConfig
@@ -195,7 +196,7 @@ Public Class frmMain
     End Sub
 
     Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControlMain.SelectedPageChanged
-        RibbonPageFunctions.Enabled = True
+        RibbonPageGroupFunctions.Enabled = True
         RibbonPageEnvelopeActions.Enabled = True
         Select Case XtraTabControlMain.SelectedTabPageIndex
             Case 1
@@ -215,7 +216,7 @@ Public Class frmMain
                 txtEnvelopeIdLabel.Caption = "No Envelope selected"
 
             Case 2
-                RibbonPageFunctions.Enabled = False
+                RibbonPageGroupFunctions.Enabled = False
                 RibbonPageEnvelopeActions.Enabled = False
         End Select
     End Sub
@@ -395,7 +396,7 @@ Public Class frmMain
             End If
         Catch ex As Exception
             MsgBox(Resources.Envelope.Document_could_not_be_opened, MsgBoxStyle.Critical, Text)
-        Logger.Error(ex)
+            Logger.Error(ex)
         End Try
         Me.Cursor = Cursors.Default
     End Sub
@@ -640,4 +641,27 @@ Public Class frmMain
 
         End Try
     End Sub
+
+    Private Sub LabelControl1_Click(sender As Object, e As EventArgs) Handles LabelControl1.Click
+
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        XtraSaveFileDialog1.FileName = "Overview.xlsx"
+        XtraSaveFileDialog1.DefaultExt = ".xlsx"
+
+        If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            Dim oOptions As New XlsxExportOptions() With {
+                    .ExportMode = XlsxExportMode.SingleFile
+                }
+            If XtraTabControlMain.SelectedTabPageIndex = 0 Then
+                GridEnvelopes.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
+            ElseIf XtraTabControlMain.SelectedTabPageIndex = 1 Then
+                GridCompleted.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
+            ElseIf XtraTabControlMain.SelectedTabPageIndex = 2 Then
+                GridControlData.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
+            End If
+
+        End If
+    End Sub
 End Class