gfx1.DrawString(sArray(i), x_font, XBrushes.Black, New XRect(x_pos, y_pos, page( _
  anz_page).Width.Point, page(anz_page).Height.Point), XStringFormats.TopLeft)

        '------- Page 1 ------
        Dim anz_page As String = 1
        Dim page As PdfPage = document.AddPage()
        Dim page1 As PdfPage = document.AddPage()
        Dim page2 As PdfPage = document.AddPage()
        Dim page3 As PdfPage = document.AddPage()
 
 
        Dim gfx1 As XGraphics = XGraphics.FromPdfPage(page1)
        Dim gfx2 As XGraphics = XGraphics.FromPdfPage(page2)
        Dim gfx3 As XGraphics = XGraphics.FromPdfPage(page3)