Druckerprüfung

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1283,8 +1283,9 @@ Public Class cFormularManager
                         End If
                     Next
                 End If
+            End If
 
-                If printerName = "" Then
+            If printerName = "" Then
                     Dim oPS As New System.Drawing.Printing.PrinterSettings
                     printerName = oPS.PrinterName
                     For Each sizes In oPS.PaperSizes
@@ -1303,7 +1304,7 @@ Public Class cFormularManager
 
                 End If
 
-                End If
+
             'Dim docs As Spire.Pdf.PdfDocument()            = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")}
 
             If printerName = "" Then
@@ -1311,7 +1312,7 @@ Public Class cFormularManager
                 Exit Sub
             End If
 
-            If False Then 'Not printerPaperSizeA4
+            If Not printerPaperSizeA4 Then
                 MsgBox("Der ermittelte Drucker " & printerName & " unterstützt keinen A4 Ausdrucke!" & vbNewLine & "Vorang wird abgebrochen!")
                 Exit Sub
             End If