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