impresora de tickets

[william_085]

aqui les pongo el codigo, con el que mando a imprimir

caleMode = vbCharacters
Printer.ScaleMode = vbCharacters
fila = 0

Do While fila < DataGrid1.ApproxCount ' nuemro de registros en el datagrid

DataGrid1.Col = 0
DataGrid1.Row = fila

Printer.CurrentX = 0: Printer.CurrentY = 4 + (fila * 2)
Printer.Print "** "; DataGrid1.Text

DataGrid1.Col = 1
DataGrid1.Row = fila
Printer.CurrentX = 0: Printer.CurrentY = 5 + (fila * 2)
Printer.Print "Vuelta1: "; DataGrid1.Text

DataGrid1.Col = 2
DataGrid1.Row = fila
Printer.CurrentX = 10: Printer.CurrentY = 5 + (fila * 2)
Printer.Print "Vuelta2: "; DataGrid1.Text

DataGrid1.Col = 3
DataGrid1.Row = fila
Printer.CurrentX = 20: Printer.CurrentY = 5 + (fila * 2)
Printer.Print "Vuelta3: "; DataGrid1.Text
fila = fila + 1.5
Loop

Printer.EndDoc

no se si las letras me salgan asi por que estoy mandando a imprimir del datagrid, o que seria mejor asi o mandar a imprimir pero que jale la informacion directamente de la base de datos de access pero que solo me imprimiera los datos que tengan la fecha actual.