edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Standarddrucker

Browse Source
This commit is contained in:
d.breimaier
2022-11-25 11:54:47 +01:00
parent abbf016761
commit 132ae678a0
1 changed files with 29 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Aviso/frmWechselStandarddrucker.vb
View File

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