This commit is contained in:
2022-11-24 23:22:10 +01:00
parent 68ec1fbfb8
commit a83a8b02c9
3 changed files with 41 additions and 26 deletions

View File

@@ -475,12 +475,11 @@ Public Class cProgramFunctions
Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "")
Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "", Optional usePRINTER_LIST As Boolean = True)
' alle installierten Drucker ermitteln und
' in in ein ArrayList-Objekt speichern
Dim sPrinters As ArrayList
If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST IsNot Nothing Then
If usePRINTER_LIST AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST IsNot Nothing Then
sPrinters = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST
Else
sPrinters = New ArrayList