Fakt. Druckroutine, Ustva

2025-03-26 08:05:29 +01:00
parent 69384b1876
commit 755df1e8ec
5 changed files with 71 additions and 49 deletions
--- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
+++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
@@ -1365,8 +1365,9 @@ Public Class cFormularManager
                If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then

                    For i As Integer = 0 To sPrinters.Count - 1
-                        If i.ToString.ToLower.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToLower) Then
-                            printerName = i
+                        Dim printer As String = sPrinters(i).ToString.ToLower
+                        If printer.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToLower) Then
+                            printerName = printer
                        End If
                    Next
                End If