From f756ffb0348084184e43c98869fd250a22628fc4 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 28 Aug 2024 17:00:13 +0200
Subject: [PATCH] =?UTF-8?q?Druckerpr=C3=BCfung?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
index 0bf60972..49dfd472 100644
--- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
+++ b/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