Private cr As Integer = 0
    Private Const maxLinesPerPage As Integer = 20
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        Dim bs As BindingSource = Me.CategoriesBindingSource
 
        For ln As Integer = 0 To maxLinesPerPage - 1
            If cr = bs.Count Then
                e.HasMorePages = False
                Return
            End If
            e.Graphics.DrawString(bs(cr)("CategoryID"), Me.Font, Brushes.Black, _
              100, 100 + 12 * ln)
            e.Graphics.DrawString(bs(cr)("CategoryName"), Me.Font, _
            Brushes.Black, 150, 100 + 12 * ln)
            e.Graphics.DrawString(bs(cr)("Description"), Me.Font, _
            Brushes.Black, 300, 100 + 12 * ln)
            cr += 1
        Next
        e.HasMorePages = True
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov