From 0ce7ae94943ce009777e605bb61743a852d2768a Mon Sep 17 00:00:00 2001 From: TekH Date: Tue, 28 Oct 2025 10:48:15 +0100 Subject: [PATCH] fix(pdfburner): correct page indexing for annotation rendering - Removed unnecessary +1 offset in Manager.SelectPage calls for image and ink annotations - Ensured correct page index is used when adding annotations and form field values - Improved annotation rendering accuracy when burning to PDF --- .../Jobs/FinalizeDocument/PDFBurner.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/EnvelopeGenerator.CommonServices/Jobs/FinalizeDocument/PDFBurner.vb b/EnvelopeGenerator.CommonServices/Jobs/FinalizeDocument/PDFBurner.vb index cd00a88a..397e2b06 100644 --- a/EnvelopeGenerator.CommonServices/Jobs/FinalizeDocument/PDFBurner.vb +++ b/EnvelopeGenerator.CommonServices/Jobs/FinalizeDocument/PDFBurner.vb @@ -161,7 +161,7 @@ Namespace Jobs.FinalizeDocument End Sub Private Sub AddImageAnnotation(x As Double, y As Double, width As Double, height As Double, page As Integer, base64 As String) - Manager.SelectPage(page + 1) + Manager.SelectPage(page) Manager.AddEmbeddedImageAnnotFromBase64(base64, x, y, width, height) End Sub @@ -187,7 +187,7 @@ Namespace Jobs.FinalizeDocument Dim oSegments = ink.lines.points Dim oColor = ColorTranslator.FromHtml(ink.strokeColor) - Manager.SelectPage(page + 1) + Manager.SelectPage(page) For Each oSegment As List(Of List(Of Single)) In oSegments Dim oPoints = oSegment. @@ -219,7 +219,7 @@ Namespace Jobs.FinalizeDocument {"city", 3} } - Manager.SelectPage(page + 1) + Manager.SelectPage(page) Dim posY = y + _pdfBurnerParams.YOffset * yOffset(name) ' Add the text annotation Dim ant = Manager.AddTextAnnot(x, posY, width, height, value)