Hola Miguel yo lo hago asi: con impresoras conectadas a LPT.
Private Sub Command1_Click()
Open "LPT1:" For Output As #1 'El LPT1: es el puerto en donde esta conectado tu impresora, podes ver en las propiedades de la impresora eso.
Print #1, Tab(1); "COMPROBANTE DE VENTA"
Print #1, Tab(1); "CANT"; Tab(6); "P R O D U C T O"; Tab(26); "I.V.A"; Tab(34); "SUBTOT"
For i = 1 To 5
Print #1, Tab(3); "1"; Tab(6); "UNO"; Tab(26); "10%"; Tab(34); "10.00"
Next i
Print #1, Tab((40 - Len("GRACIAS POR SU COMPRA!")) \ 2); "GRACIAS POR SU COMPRA!"
End Sub
Si tu impresora es con conexion USB es casi la misma cosa. Printer.CurrentX, Printer.CurrentY
Printer.CurrentX = 31: Printer.CurrentY = 42: Printer.Print "COMPROBANTE DE VENTAS"
Saludos...