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

11
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,7 +85,7 @@ 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 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)
@@ -98,7 +101,9 @@ Public Class frmWechselStandarddrucker
Next Next
End If End If
End If End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub End Sub