Visual Basic - imprimir datos que aparecen en un datagrid

Hola!

Estoy realizando una aplicacion en VB 6.0 que se conecta a una BD de SQL Server 7.0,
lo que quiero es que el usuario pueda imprimir los resultados de una consulta que
aparecen en un control datagrid; ya he intentando usando el control
Microsoft Common Dialog para llamar a la caja de dialogo de imprimir cuando se
hace click en un CommandButton, pero no me ha funcionado;
(¡no se como hacer para imprimir todos los registros del datagrid!)
agradezco mucho a quien me pueda ayudar,
este es el código que estoy usando creo que le hacen falta muchas cosas,
para correrlo solo necesitas un control Microsoft Common Dialog y
un CommandButton sobre el formulario:

Private Sub Command1_Click()
Dim i, primerapagina, ultimapagina, numerodecopias
'Generar un error cuando se pulse cancelar
CommonDialog1.CancelError = True
'Visualizar la caja de dialogo
CommonDialog1.ShowPrinter

'Obtener las propiedades de impresión
primerapagina = CommonDialog1.FromPage
ultimapagina = CommonDialog1.ToPage
numerodecopias = CommonDialog1.Copies

'Imprimir
For i = 1 To numerodecopias
Printer.Print "Esta línea será enviada a la impresora "
Printer.Print 'No se que debe ir aca
Next i
Printer.EndDoc
End Sub