Chat etc.

Dokumentation/Drucken/frmPrintActiveReports.vb

@@ -17,6 +17,19 @@
         If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
     End Sub
 
+    Private Sub tsbEX_Click(sender As Object, e As EventArgs)
+        'Dim Dateiname As String
+        Dim savefiledialog As New SaveFileDialog
+        savefiledialog.Filter = "Excel files (*.xls)|*.xls"
+        savefiledialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
+        savefiledialog.ShowDialog()
+
+        Dim p As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport
+        If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
+
+        If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
+    End Sub
+
     Private Sub frmPrintActiveReports_Load(sender As Object, e As EventArgs) Handles Me.Load
         Dim tsbPDF As New ToolStripButton("PDF")
         tsbPDF.Image = My.Resources.pdf512
@@ -24,6 +37,12 @@
 
         AddHandler tsbPDF.Click, AddressOf tsbPDF_Click
 
+        Dim tsbEX As New ToolStripButton("Excel")
+        tsbEX.Image = My.Resources.excel20
+        Viewer1.Toolbar.MainBar.Items.Insert(5, tsbEX)
+
+        AddHandler tsbEX.Click, AddressOf tsbEX_Click
+
         Print()
     End Sub
 
@@ -45,6 +64,10 @@
                 Report.dt = Me.dt
                 Report.DHCPAndrucken = Me.DHCPAndrucken
                 Viewer1.LoadDocument(Report)
+            Case "Manuell"
+                Dim Report As New rptLeer
+                Report.dt = Me.dt
+                Viewer1.LoadDocument(Report)
         End Select
 
     End Sub