Mailversand, etc.

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -988,13 +988,19 @@ Public Class cMDMFunctionsAllgemein
                             For page As Integer = 1 To pdfReader.NumberOfPages
                                 Dim canvas As PdfContentByte = stamper.GetOverContent(page)
                                 Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.WINANSI, BaseFont.EMBEDDED)
-                                canvas.SetFontAndSize(bf, 16)
+                                canvas.SetFontAndSize(bf, 12)
                                 canvas.BeginText()
 
                                 'The origin (0,0) is at the bottom-left corner of the page and represent coordinates in points!!!!!
                                 Dim _height = pdfReader.GetPageSizeWithRotation(page).GetTop(25) 'oberer Rand
                                 Dim _width = pdfReader.GetPageSizeWithRotation(page).GetRight(0) / 2 'Mitte
 
+                                'Workaround!
+                                If _height > 2000 Then
+                                    canvas.SetFontAndSize(bf, 45)
+                                    _height -= 70
+                                End If
+
                                 canvas.ShowTextAligned(PdfContentByte.ALIGN_CENTER, nummierung, _width, _height, 0)
                                 'canvas.ShowTextAligned(PdfContentByte.ALIGN_CENTER, nummierung, 350, 550, 0)