Standarddrucker

Aviso/frmWechselStandarddrucker.vb

@@ -32,8 +32,11 @@ Public Class frmWechselStandarddrucker
 
         VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = cboDefaultprinter._value
         VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = cboDefaultprinterBON._value
-
+        Try
             SetDefaultPrinter(cboDefaultprinter._value)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
 
         For Each path As String In filePathListOfPrinters
             changetxtFileForPrinter(path)
@@ -82,7 +85,7 @@ Public Class frmWechselStandarddrucker
     End Function
 
     Private Sub getCurrentPrintersFromFile(printerFile As String)
-
+        Try
 
             If File.Exists(printerFile) Then
                 Dim l = IO.File.ReadAllLines(printerFile, System.Text.Encoding.Default)
@@ -98,7 +101,9 @@ Public Class frmWechselStandarddrucker
                     Next
                 End If
             End If
-
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
 
     End Sub