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

Wölfl Report->RG-Nr; TextToPDF->PageNum

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-16 09:15:19 +02:00
parent 0b3776e764
commit f4a6d9f8ab
9 changed files with 294 additions and 233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -953,9 +953,9 @@ Public Class cFormularManager
Dim stamper = New PdfStamper(pdf, fw)
If True Then
If listToWrite IsNot Nothing Then
Dim overStr As PdfContentByte = stamper.GetOverContent(1)
For Each i In listToWrite
If i.Text <> "" Then write(overStr, i, pdf.GetPageSize(1).Height)
Dim overStr As PdfContentByte = stamper.GetOverContent(i.getPage)
If i.Text <> "" Then write(overStr, i, pdf.GetPageSize(i.getPage).Height)
Next
End If
End If