Visual Basic - impresion

estoy tratando de imprimir unos registros y no puedo, lo hago con este codigo:
private sub cmd_click( )
cp=0
printer.orientation=1
do while not data.recordset.eof( )
if cp=0 then
printer.fontsize=12
printer.line (100,500) - (1000,500)
printer.print "codigo nombre direccion"
printer.line (100,700) - (1000,700)
end if

printer.print data.recordset(0);tab(100)
printer.print data.recordset(1);tab(100)
printer.print data.recordset(2);tab(100)

cp=cp+1
if cp>50 then
cp=0
printer.newpage
end if

data.recordset.movenext
loop

Hola.
Cuando dices que no puedes, ¿te refieres a que no te imprime los registros, a que no sale nada por la impresora, ...?.
Veo que te falta el Printer.EndDoc justo después del Loop. Pero vamos, tal como lo tienes, debería imprimir cuando cierres el programa.
Si puedes especificar mas a lo mejor damos con el problema.