edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Druckerprüfung

Browse Source
This commit is contained in:
d.breimaier
2024-08-28 17:00:13 +02:00
parent e63c251890
commit f756ffb034
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

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