Mit vb.net und itextsharp formatierten Text aus übergebenem String in bestehendes PDF einfügen

Imports System
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf



Public Sub InfoPDFErstellenVonVorlageXX(ByRef strType As String, ByRef strAusgabePfad As String, _
                                          ByRef strText01 As String, Optional ByRef strText02 As String = Nothing, _
                                          Optional ByRef strText03 As String = Nothing, Optional ByRef strText04 As String = Nothing)

        Dim pdffont1 As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.HELVETICA, 10, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)
        Dim pdffont2 As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.HELVETICA, 10, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)
        Dim pdffont3 As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.HELVETICA, 10, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)
        Dim pdffont4 As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.HELVETICA, 10, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)

        Dim strVorlagenDatei As String = Nothing

        Select Case strType
            Case "typ1"  
                strVorlagenDatei = strMyPathMailInfo
            Case "typ2" 'Nacharbeiten  
                Exit Sub
        End Select

        Try

            Using inputPdfStream As Stream = New FileStream(strVorlagenDatei, FileMode.Open, FileAccess.Read, FileShare.Read)
                Using outputPdfStream As Stream = New FileStream(strAusgabePfad, FileMode.Create, FileAccess.Write, FileShare.None)

                    Dim reader = New PdfReader(inputPdfStream)
                    Dim stamper = New PdfStamper(reader, outputPdfStream)
                    Dim pdfContentByte = stamper.GetOverContent(1)


                    Dim pageWidth As Single = reader.GetPageSize(1).Width
                    Dim pageHeight As Single = reader.GetPageSize(1).Height


                    Dim XPos As Single = 45
                    Dim YPos As Single = (pageHeight) - 200

                    Dim canvas1 As PdfContentByte = stamper.GetOverContent(1)
                    ColumnText.ShowTextAligned(canvas1, Element.ALIGN_LEFT, New Phrase(strText01, pdffont1), XPos, YPos, 0)

                    If strText02 <> Nothing Then
                        Dim canvas2 As PdfContentByte = stamper.GetOverContent(1)
                        XPos = 20
                        YPos = (pageHeight) - 300
                        ColumnText.ShowTextAligned(canvas2, Element.ALIGN_LEFT, New Phrase(strText02, pdffont1), XPos, YPos, 0)
                    End If
                    If strText03 <> Nothing Then
                        Dim canvas3 As PdfContentByte = stamper.GetOverContent(1)
                        XPos = 20
                        YPos = (pageHeight) - 400
                        ColumnText.ShowTextAligned(canvas3, Element.ALIGN_LEFT, New Phrase(strText03, pdffont1), XPos, YPos, 0)
                    End If
                    If strText04 <> Nothing Then
                        Dim canvas4 As PdfContentByte = stamper.GetOverContent(1)
                        XPos = 20
                        YPos = (pageHeight) - 500
                        ColumnText.ShowTextAligned(canvas4, Element.ALIGN_LEFT, New Phrase(strText04, pdffont1), XPos, YPos, 0)
                    End If

                    stamper.Close()
                    reader.Close()
                End Using
            End Using

        Catch ex As Exception

        End Try

    End Sub