Entonces te hace falta la función de imprimir, puedes poner un botón de comando o en el menú dependiendo de como esta tu aplicación, cuya función sea imprimir, cuando des click en ese botón o menú debes invocar a la función imprimir, en la cual es difícil ayudarte porque depende mucho del formato que vayas a imprimir pueden ser tickets, facturas o no se lo que vayas a imprimir por lo que no te puedo ayudar mucho con esa función, ademas que tienes que ir colocando tus datos de acuerdo al formato que quieras, lo único que te puedo decir es que uses el objeto print, te pongo un ejemplo
private sub cmdImprimir_click()
'ejecutar consulta a la bd para obtener el numero de copias
dim rsCopias as new adodb. Recordset
set rscopias = bd.execute ("select nocopias from tabla where id = xxxx")
copias = rscopias!nocopias
FuncImprimir copias
end sub
public function FuncImprimir (Ncopias as integer)
dim i as integer
for i = 0 to ncopias
printer.print dato1
printer.print dato2
printer.enddoc
next i
end function
Con el objeto printer puedes configurar tu impresion checa esta pagina ojala te sea de ayuda
http://www.elguruprogramador.com.ar/zonas/ver.asp?id=73