Dim rect As New Rectangle( _
         PrintDocument1.DefaultPageSettings.Margins.Left, _
         PrintDocument1.DefaultPageSettings.Margins.Top, 0.0, 0.0)
        Dim Line As Integer = 1
        Dim Text As String = ListBox1.Items(0).ToString
        Dim size1 As SizeF = e.Graphics.MeasureString(Text, Me.Font)
 
        For i As Integer = i_line To ListBox1.Items.Count - 1 ' Hier steckt 
        ' mein Problem...                                                       
        '                                                       ' wieviel _
        Zeilen?
            If i > ListBox1.Items.Count - 1 Then
                Exit For
            End If
 
            If i <= ListBox1.Items.Count - 1 Then
                Dim strout As String = ListBox1.Items(i).ToString
                Dim size As SizeF = e.Graphics.MeasureString(strout, _
                  ListBox1.Font)
 
                rect.Width = size.Width
                e.Graphics.DrawString(strout, ListBox1.Font, Brushes.Black, _
                  rect.X, rect.Y)
                rect.Y += size.Height
                If e.MarginBounds.Height < rect.Y + size.Height Then
                    e.HasMorePages = True
                    i_line = i + 1
                    Exit For
                Else
                    e.HasMorePages = False
                    i_line = 0
                End If
 
            End If
 
        Next
        If ListBox1.Items.Count - 1 > i_line Then
        Else
        End If