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:55:33 +01:00
parent 132ae678a0
commit 7c87228bff
1 changed files with 21 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Aviso/frmWechselStandarddrucker.vb
View File

@@ -32,8 +32,11 @@ Public Class frmWechselStandarddrucker
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = cboDefaultprinter._value VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = cboDefaultprinter._value
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = cboDefaultprinterBON._value VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = cboDefaultprinterBON._value
Try
SetDefaultPrinter(cboDefaultprinter._value) SetDefaultPrinter(cboDefaultprinter._value)
Catch ex As Exception
MsgBox(ex.Message)
End Try
For Each path As String In filePathListOfPrinters For Each path As String In filePathListOfPrinters
changetxtFileForPrinter(path) changetxtFileForPrinter(path)
@@ -82,23 +85,25 @@ Public Class frmWechselStandarddrucker
End Function End Function
Private Sub getCurrentPrintersFromFile(printerFile As String) Private Sub getCurrentPrintersFromFile(printerFile As String)
Try
If File.Exists(printerFile) Then
Dim l = IO.File.ReadAllLines(printerFile, System.Text.Encoding.Default)
If l.Count > 0 Then
For Each li In l
If li.StartsWith("BON:") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = (li.Replace("BON:", "")).Trim
End If
If li.StartsWith("PRINTER:") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim
If File.Exists(printerFile) Then End If
Dim l = IO.File.ReadAllLines(printerFile, System.Text.Encoding.Default) Next
If l.Count > 0 Then End If
For Each li In l
If li.StartsWith("BON:") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = (li.Replace("BON:", "")).Trim
End If
If li.StartsWith("PRINTER:") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim
End If
Next
End If End If
End If Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub End Sub