<e Einstellungen>
        For i = 0 To ltvListe.Groups.Count - 1
            Dim Gruppe As ListViewGroup = ltvListe.Groups(i)
            ' Jetzt der Name der Gruppe
            e.Graphics.DrawString(Gruppe.Header, Schrift, Brushes.DarkBlue, New _
              Point(PointX, PointY))
            e.Graphics.DrawLine(New Pen(Color.Gray, 0.2), New Point(PointX, _
            PointY + 4), New Point(SeiteB - 20, PointY + 4))
            PointY = PointY + Abstand
            ' Jetzt die Spaltenbezeichnung
            e.Graphics.DrawString("Spalte A", SchriftSpalte, Brushes.Gray, New _
              Point(PointX, PointY))
            e.Graphics.DrawString("Spalte B", SchriftSpalte, Brushes.Gray, New _
            Point(PointX + 25, PointY))
            e.Graphics.DrawString("Spalte C", SchriftSpalte, Brushes.Gray, New _
            Point(PointX + 50, PointY))
            PointY = PointY + 4
            'Jetzt die Werte
            For Each Item As ListViewItem In ltvListe.Items
                If Item.Group.Header = Gruppe.Header Then
                    e.Graphics.DrawString(Item.SubItems(1).Text, Schrift, _
                      Brushes.Black, New Point(PointX, PointY))
                    e.Graphics.DrawString(Item.SubItems(2).Text, Schrift, _
                    Brushes.Black, New Point(PointX + 25, PointY))
                    e.Graphics.DrawString(Item.SubItems(4).Text, Schrift, _
                    Brushes.Black, New Point(PointX + 50, PointY))
                    PointY = PointY + Abstand
                End If
            Next
            PointY = PointY + Abstand + 3
            If e.HasMorePages = (i < ltvListe.Groups.Count - 1) = True Then
                e.HasMorePages = True
                PointY = 35
                Exit Sub
            Else
                e.HasMorePages = False
                Exit Sub
            End If
        Next