While AktuelleZeile < GesamtZeilen
            e.Graphics.DrawString("vorname", New Font("Times New Roman", 10, _
              FontStyle.Regular), Brushes.Black, y_achse, x_achse, text_links)
            e.Graphics.DrawString("nachname", New Font("Times New Roman", 10, _
            FontStyle.Regular), Brushes.Black, y_achse + 100, x_achse, _
            text_links)
            e.Graphics.DrawString("strasse", New Font("Times New Roman", 10, _
            FontStyle.Regular), Brushes.Black, y_achse + 230, x_achse, _
            text_links)
            e.Graphics.DrawString("plz", New Font("Times New Roman", 10, _
            FontStyle.Regular), Brushes.Black, y_achse + 410, x_achse, _
            text_links)
            e.Graphics.DrawString("wohnort", New Font("Times New Roman", 10, _
            FontStyle.Regular), Brushes.Black, y_achse + 500, x_achse, _
            text_links)
            e.Graphics.DrawString("telefon", New Font("Times New Roman", 10, _
            FontStyle.Regular), Brushes.Black, y_achse + 650, x_achse, _
            text_links)
            e.Graphics.DrawString("mobil", New Font("Times New Roman", 10, _
            FontStyle.Regular), Brushes.Black, y_achse + 750, x_achse, _
            text_links)
            e.Graphics.DrawString("email", New Font("Times New Roman", 10, _
            FontStyle.Regular), Brushes.Black, y_achse + 850, x_achse, _
            text_links)
            e.Graphics.DrawString("geburtstag", New Font("Times New Roman", 10, _
            FontStyle.Regular), Brushes.Black, y_achse + 1000, x_achse, _
            text_links)
            x_achse = x_achse + 30
 
            index = index + 1
            AktuelleZeile = AktuelleZeile + 1
 
            If index >= 16 Then
                e.HasMorePages = True
                index = 0
                x_achse = 200
                Seitenzähler = Seitenzähler + 1
            Else
                Seitenzähler = 1
            End If
 
 
        End While
        e.HasMorePages = False