TryCatch

Main.vb

@@ -311,8 +311,12 @@ Public Class TSUserReporter
             Text = "PRINTER:" & Standarddrucker.Druckername & vbCrLf
             Text &= "BON:" & Bondrucker.Druckername
         End If
+        Try
+            System.IO.File.WriteAllText(PrintINI, Text)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
 
-        My.Computer.FileSystem.WriteAllText(PrintINI, Text, False)
 
     End Sub