Visual Basic

    Dim ActivePageNumber As Short = 1<br />
    Dim pageCount As Short = 0<br />
    Dim ItemCountOnPerPage As Integer = 30<br />
    Dim dtSource As DataTable<br />
    Dim index As Short<br />
    Private Sub btnPrintDataGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintDataGrid.Click<br />
        ActivePageNumber = 1<br />
        pageCount = Math.Ceiling(dtSource.Rows.Count / ItemCountOnPerPage)<br />
        PrintDocument1.Print()<br />
    End Sub<br />
<br />
<br />
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage<br />
        If Not ActivePageNumber > pageCount Then<br />
            PrintDataTable(e.Graphics)<br />
            ActivePageNumber += 1<br />
            e.HasMorePages = True<br />
        Else<br />
            e.HasMorePages = False<br />
        End If<br />
    End Sub<br />
<br />
    Public Sub PrintDataTable(ByVal e As Graphics)<br />
        Dim x, y As Short<br />
        Dim fArial As New Font("Arial", 8)<br />
        x = 20<br />
        y = 20<br />
        Dim cci As Short = index<br />
        Do While (cci <> ItemCountOnPerPage Or index <> dtSource.Rows.Count - 1)<br />
            For columnIndex As Short = 0 To dtSource.Columns.Count - 1<br />
                e.DrawString(dtSource.Rows(index)(columnIndex), fArial, New SolidBrush(Color.Black), x, y)<br />
                x += 30 '  set this to column width<br />
            Next<br />
            y += fArial.Height<br />
            cci += 1<br />
            index += 1<br />
        Loop<br />
    End Sub