Bugfix, fillPFG-> getPage

2023-10-17 10:01:36 +02:00
parent e12394b8b7
commit b56e276882
1 changed files with 4 additions and 1 deletions
--- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
+++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
@@ -955,7 +955,10 @@ Public Class cFormularManager
                    If listToWrite IsNot Nothing Then
                        For Each i In listToWrite
                            Dim overStr As PdfContentByte = stamper.GetOverContent(i.getPage)
-                            If i.Text <> "" Then write(overStr, i, pdf.GetPageSize(i.getPage).Height)
+                            If overStr IsNot Nothing AndAlso i.Text <> "" Then
+                                Dim height = pdf.GetPageSize(i.getPage).Height
+                                If height IsNot Nothing Then write(overStr, i, height)
+                            End If
                        Next
                    End If
                End If