SQL Server Anpassungen, Reports repariert

2020-06-24 09:24:33 +02:00
parent a4c8b45922
commit c142858a98
11 changed files with 91 additions and 57 deletions
--- a/UID/Reports/frmPrintActiveReports.vb
+++ b/UID/Reports/frmPrintActiveReports.vb
@@ -73,9 +73,13 @@ Public Class frmPrintActiveReports
        savefiledialog.ShowDialog()

        Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
-        If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
+        Try
+            If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)

-        If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
+            If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
    End Sub