Visual Basic - Imprimir un DataGrid

Dim contador As Integer

Dim contadoruno As Integer

Private Sub Command1_Click()

Adodc1.Recordset.MoveFirst

contado = 15000

 For i = 1 To Adodc1.Recordset.RecordCount

  '--------------------------------------->"IMPRIME EL CAMPO [NOMBRE]"

  contador = contador + 290

  Printer.CurrentX = 1000

  Printer.CurrentY = 1500 + contador

  Printer.Print Adodc1.Recordset("nombre")

  '--------------------------------------->"IMPRIME EL CAMPO [CANTIDAD]"

  contador = contador + 0

  Printer.CurrentX = 500

  Printer.CurrentY = 1500 + contador

  Printer.Print Adodc1.Recordset("cantidad")

  '--------------------------------------->"IMPRIME EL CAMPO [TOTAL]"

  contador = contador + 0

  Printer.CurrentX = 10900

  Printer.CurrentY = 1500 + contador

  Printer.Print Adodc1.Recordset("total")

  '--------------------------------------->"IMPRIME EL CAMPO [SUBTOTAL]"

  contador = contador + 0

  Printer.CurrentX = 10000

  Printer.CurrentY = 1500 + contador

  Printer.Print Adodc1.Recordset("subtotal")

  '\\\\\\\\\\\\\\\\\\\\\\ PASA AL SIGUIENTE

  Adodc1.Recordset.MoveNext

 Next

  '--------------------------------------->"IMPRIME LA ETIQUETA [CANTIDAD]"

  Printer.CurrentX = 200

  Printer.CurrentY = 1200

  Printer.Print "CANTIDAD"

  '--------------------------------------->"IMPRIME LA ETIQUETA [NOMBRE DEL PRODUCTO]"

  Printer.CurrentX = 4000

  Printer.CurrentY = 1200

  Printer.Print "NOMBRE DEL PRODUCTO"

  '--------------------------------------->"IMPRIME LA ETIQUETA [SUBTOTAL]"

  Printer.CurrentX = 9872

  Printer.CurrentY = 1200

  Printer.Print "SUBTOTAL"

  '--------------------------------------->"IMPRIME LA ETIQUETA [TOTAL]"

  Printer.CurrentX = 10930

  Printer.CurrentY = 1200

  Printer.Print "TOTAL"

  '--------------------------------------->"IMPRIME LA LINEA"

  Printer.CurrentX = 150

  Printer.CurrentY = 1500

  Printer.Print "__________________________________________________________________________________________________________________________________"

End Sub

Private Sub Form_Load()

 MsgBox "Tambien los Tabasqueños nos destacamos: Codigo Elaborado por Luis Felipe Perez Gaspar, cualquier cosa mandenme un mail al nene_luisfelipe@hotmail.com", vbInformation, "Tabasqueños Adelante"

End Sub