Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object,
                          ByVal e As System.EventArgs)
                          Handles Button1.Click

    Me.printResultsPreview.Document = Me.printResults
    Me.printResultsPreview.ShowDialog()
End Sub


Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object,
         ByVal e As System.Drawing.Printing.PrintPageEventArgs)
         Handles printResults.PrintPage


    Dim currentTab As Integer          'Horizontal Posistion
    Dim currentLine As Integer         'Verticle Posistion
    Const ROW_HEIGHT As Integer = 15   'Line Height

    Dim totalRows As Integer           'Total number of rows in the data grid
        totalRows = Me.DataGridView1.Rows.Count
    Static currentRow As Integer       'Current row in the data grid
    Dim currentCell As Integer         'Current cell in the data grid

    Static pageCount As Integer = 1    'Counts Number of pages
    Static printedRows As Integer = 0  'Counts the number of rows per page

    Const MAX_ROWS As Integer = 33     'Maximumn number of rows on a page

    Dim x As Integer                   'For printing the Horizontal Lines


    'Reset Horz and Vert Posistion
        currentLine = 10
        currentTab = 25

    'Print the header
        e.Graphics.DrawString("| Last Update", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150
        e.Graphics.DrawString("| Food Name", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150
        e.Graphics.DrawString("| Food Group", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150
        e.Graphics.DrawString("| Amount", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150
        e.Graphics.DrawString("| Units", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150

    'Move down one line, and reset Horz Posistion
        currentLine += ROW_HEIGHT
        currentTab = 25

    'Print Horizontal Line
        For x = 25 To 800
            e.Graphics.DrawString("-", New Font("Georgia", 10), Brushes.Black, x, currentLine)
        Next

    'Move down one line and reset Horz Posistion
        currentLine += ROW_HEIGHT
        currentTab = 25

        For printedRows = 0 To MAX_ROWS

            'Leave loop if you have reached the end of the data grid
                If (Me.DataGridView1.Rows(currentRow).Cells(1).Value = String.Empty) Then
                    Exit For
                End If
            'Print the data
                    For currentCell = 0 To 4
                        e.Graphics.DrawString("| " & Me.DataGridView1.Rows(currentRow).Cells(currentCell).Value, New Font("Georgia", 10), Brushes.Black, currentTab, currentLine)
                        currentTab += 150
                    Next

            'Move down one line
                currentLine += ROW_HEIGHT

            'Print Horizontal Lines
                For x = 25 To 800
                    e.Graphics.DrawString("-", New Font("Georgia", 10), Brushes.Black, x, currentLine)
                Next

            'Move down one line, change your current row, and reset Horz Posistion
                currentLine += ROW_HEIGHT
                currentTab = 25
                currentRow += 1
        Next


        'Print footer
            e.Graphics.DrawString(Now.ToString("M/dd/yyyy") & " - " & Now.ToShortTimeString(), New Font("Georgia", 10), Brushes.Black, 25, 1060)
            e.Graphics.DrawString("Page:" & pageCount, New Font("Georgia", 10), Brushes.Black, 750, 1060)

        'Check if your at the end of a page
            If (printedRows = MAX_ROWS + 1) Then
                e.HasMorePages = True
                pageCount += 1

            Else
                e.HasMorePages = False
            End If
End Sub