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

VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb

@@ -8,10 +8,11 @@ Public Class cPDFWriteValues
     Private mfont As String
     Private mSize As Integer
     Private maxlength As Integer = -1
+    Private page As Integer = 1
     Private align As Integer = iTextSharp.text.Element.ALIGN_LEFT 'PdfContentByte.ALIGN_LEFT
 
 
-    Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT)
+    Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT, Optional ByVal page As Integer = 1)
         Me.sText = sText
         Me.X = X
         Me.Y = Y
@@ -21,6 +22,7 @@ Public Class cPDFWriteValues
         Me.mSize = mSize
         Me.maxlength = maxlength
         Me.align = align
+        Me.page = page
     End Sub
 
     Public ReadOnly Property Text() As Object
@@ -72,6 +74,11 @@ Public Class cPDFWriteValues
             Return align
         End Get
     End Property
+    Public ReadOnly Property getPage() As Object
+        Get
+            Return page
+        End Get
+    End Property
 
     '  Public Overrides Function ToString() As Object
     '      Return mText