Standarddrucker

Aviso/frmWechselStandarddrucker.vb

@@ -45,7 +45,7 @@ Public Class frmWechselStandarddrucker
     Private Function changetxtFileForPrinter(printerFile As String) As Boolean
 
         Dim changed As Boolean = False
-
+        Try
             If File.Exists(printerFile) Then
                 Dim l = IO.File.ReadAllLines(printerFile, System.Text.Encoding.Default)
                 If l.Count > 0 Then
@@ -75,6 +75,9 @@ Public Class frmWechselStandarddrucker
             End If
 
             Return changed
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
 
     End Function