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

55
Aviso/frmWechselStandarddrucker.vb
View File

@@ -45,36 +45,39 @@ 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
Dim l = IO.File.ReadAllLines(printerFile, System.Text.Encoding.Default)
If l.Count > 0 Then
If Not String.IsNullOrWhiteSpace(cboDefaultprinter._value) Then
Dim lines As List(Of String) = IO.File.ReadAllLines(printerFile).ToList
For index As Integer = 0 To lines.Count - 1
If lines(index).ToLower.StartsWith("printer") Then
lines(index) = String.Concat("PRINTER:", cboDefaultprinter._value)
changed = True
End If
Next
If changed Then IO.File.WriteAllLines(printerFile, lines.ToArray)
End If
If Not String.IsNullOrWhiteSpace(cboDefaultprinterBON._value) Then
Dim lines As List(Of String) = IO.File.ReadAllLines(printerFile).ToList
For index As Integer = 0 To lines.Count - 1
If lines(index).ToLower.StartsWith("bon") Then
lines(index) = String.Concat("BON:", cboDefaultprinterBON._value)
changed = True
End If
Next
If changed Then IO.File.WriteAllLines(printerFile, lines.ToArray)
End If
If File.Exists(printerFile) Then
Dim l = IO.File.ReadAllLines(printerFile, System.Text.Encoding.Default)
If l.Count > 0 Then
If Not String.IsNullOrWhiteSpace(cboDefaultprinter._value) Then
Dim lines As List(Of String) = IO.File.ReadAllLines(printerFile).ToList
For index As Integer = 0 To lines.Count - 1
If lines(index).ToLower.StartsWith("printer") Then
lines(index) = String.Concat("PRINTER:", cboDefaultprinter._value)
changed = True
End If
Next
If changed Then IO.File.WriteAllLines(printerFile, lines.ToArray)
End If End If
If Not String.IsNullOrWhiteSpace(cboDefaultprinterBON._value) Then
Dim lines As List(Of String) = IO.File.ReadAllLines(printerFile).ToList
For index As Integer = 0 To lines.Count - 1
If lines(index).ToLower.StartsWith("bon") Then
lines(index) = String.Concat("BON:", cboDefaultprinterBON._value)
changed = True
End If
Next
If changed Then IO.File.WriteAllLines(printerFile, lines.ToArray)
End If
End If End If
End If
Return changed Return changed
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function End Function