From b56e276882f175f5890be3e31e280f9e934861ec Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 17 Oct 2023 10:01:36 +0200 Subject: [PATCH] Bugfix, fillPFG-> getPage --- VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 86d07d1a..3fb50dd0 100644 --- 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