Print DataGridView

Hello to all, lets try to fix this code (i have found it in net) for printing datagridview. Problem is that if you in datagridview add one row in PrintPreview you can see that it will print only head of datagrid, if you add two rows (some text in row) etc. (three rows, four rows ...), in PrintPreview you can see, that it will print all added rows but not a head of datagridview.

Also how to put datagrid in the middle of paper, so it will not start to print in the top of paper, so I can put some text above and under the datagrid.

Realy thanks for help...

Code:

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

        With DataGridView1

            Dim fmt As StringFormat = New StringFormat(StringFormatFlags.LineLimit)

            fmt.LineAlignment = StringAlignment.Center

            fmt.Trimming = StringTrimming.EllipsisCharacter

            Dim y As Single = e.MarginBounds.Top

            Do While mRow < .RowCount

                Dim row As DataGridViewRow = .Rows(mRow)

                Dim x As Single = e.MarginBounds.Left

                Dim h As Single = 0

                For Each cell As DataGridViewCell In row.Cells

                    Dim rc As RectangleF = New RectangleF(x, y, cell.Size.Width, cell.Size.Height)

                    e.Graphics.DrawRectangle(Pens.White, rc.Left, rc.Top, rc.Width, rc.Height)

                    If (newpage) Then

                        e.Graphics.DrawString(DataGridView1.Columns(cell.ColumnIndex).HeaderText, .Font, Brushes.Black, rc, fmt)

                    Else

                        e.Graphics.DrawString(DataGridView1.Rows(cell.RowIndex).Cells(cell.ColumnIndex).FormattedValue.ToString(), .Font, Brushes.Black, rc, fmt)

                    End If

                    x += rc.Width

                    h = Math.Max(h, rc.Height)

                Next

                newpage = False

                y += h

                mRow += 1

                If y + h > e.MarginBounds.Bottom Then

                    e.HasMorePages = True

                    mRow -= 1

                    newpage = True

                    Exit Sub

                End If

            Loop

            mRow = 0

        End With

    End Sub

Code:

    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click

        PrintPreviewDialog1.Document = PrintDocument1

        PrintPreviewDialog1.ShowDialog()

    End Sub

Code:

Public Class Form1

    Dim mRow As Integer = 0

    Dim newpage As Boolean = True

End Class