dudas al imprimir datagrid

[rogeliolt]

saludos, he programado esta instrucción en mi aplicación de visual basic de visual studio 2005, este es el código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New Point(0, 0), Me.Size))
Me.InvokePaint(DataGridView1, myPaintArgs)
End Sub

Pero al imprimir, los registros se muestran extremadamente diminutos que parece que no salen, alguno de ustedes tiene alguna idea de por qué sucede esto?, y/o conoce alguien algún método mejor para imprimir esto?.

Gracias.