Visual Basic para Aplicaciones - imprimir datagrid

yPos = topMargin + (count * printFont.GetHeight(e.Graphics))

e.Graphics.DrawString(texto, printFont, System.Drawing.Brushes.Black, 10, yPos)

' Dejamos una línea de separación

count += 2

While count < linesPerPage AndAlso f < DataGridView1.Rows.Count

    row = DataGridView1.Rows(f)

    texto = ""

    For Each celda As System.Windows.Forms.DataGridViewCell In row.Cells

        'Comprobamos que la celda tenga algún valor, en caso de 

        'permitir añadir filas esto es muy importante

        If celda.Value IsNot Nothing Then

            texto += vbTab + celda.Value.ToString()

        End If

    Next

    ' Calculamos la posición en la que se escribe la línea

    yPos = topMargin + (count * printFont.GetHeight(e.Graphics))

    ' Escribimos la línea con el objeto Graphics

    e.Graphics.DrawString(texto, printFont, System.Drawing.Brushes.Black, 10, yPos)

    ' Incrementamos los contadores

    count += 1

    f += 1

End While

yPos = topMargin + (count * printFont.GetHeight(e.Graphics))

e.Graphics.DrawString(texto, printFont, System.Drawing.Brushes.Black, 10, yPos)

' Dejamos una línea de separación

count += 2

'se agrego despues

Dim i As Integer = Nothing

' Recorremos las filas del DataGridView hasta que llegemos

' a las líneas que nos caben en cada página o al final del grid.

While count < linesPerPage AndAlso i < DataGridView1.Rows.Count

    row = DataGridView1.Rows(i)

    texto = ""

    For Each celda As System.Windows.Forms.DataGridViewCell In row.Cells

        ' For f As Integer = 0 To DataGridView1.RowCount - 2

        'Comprobamos que la celda tenga algún valor, en caso de 

        ' permitir añadir filas esto es muy importante

        If celda.Value IsNot Nothing Then

            texto += vbTab + celda.Value.ToString()

        End If

    Next

    ' Calculamos la posición en la que se escribe la línea

    yPos = topMargin + (count * printFont.GetHeight(e.Graphics))

    ' Escribimos la línea con el objeto Graphics

    e.Graphics.DrawString(texto, printFont, System.Drawing.Brushes.Black, 10, yPos)

    ' Incrementamos los contadores

    count += 1

    i += 1

End While

' Una vez fuera del bucle comprobamos si nos quedan más filas

' por imprimir, si quedan saldrán en la siguente página

If i < DataGridView1.Rows.Count Then

    e.HasMorePages = True

Else

    ' si llegamos al final, se establece HasMorePages a

    ' false para que se acabe la impresión

    e.HasMorePages = False

    ' Es necesario poner el contador a 0 porque, por ejemplo si se hace

    ' una impresión desde PrintPreviewDialog, se vuelve disparar este

    ' evento como si fuese la primera vez, y si i está con el valor de la

    ' última fila del grid no se imprime nada

    i = 0

End If