Salu2

Verán desarrollé un sistemita de ventas, el cual ya trabaja un 90% estable.
Lo único que me falta es el ticket, el cual aún no logro organizar y centrar los contenidos en el papel.
 
La forma con al que imprimo es usando un ejemplo como el siguiente:

Dim rc As New Recordset
            Set rc = Conexion.Execute("consulta sql")
 
                If rc.EOF = False Then
                Printer.Print Space(7) & "NOMBRE DE LA TIENDA"
                Printer.Print "Direccion Tienda"
                Printer.Print "Telefono Tienda"
                Printer.Print "----------------------------------------------"
                Printer.Print "Detalles de la compra"
                Printer.Print ""
 
                Printer.Print "TOTALES...."
                    Printer.Print Space(30) & "     Total:" & Space(2) & Me.txtTotal.Text '  rc!total
                    Printer.Print Space(30) & " Efectivo:" & Space(2) & Format(Me.txtEfectivo.Text, "$##0.00")
                    Printer.Print Space(30) & "   Cambio:" & Space(2) & Me.txtCambio.Text
                    Printer.Print Space(30) & "Artículos:" & Space(2) & Me.txtArticulos.Text
 
            Printer.Print "PIE DEL TICKET"
 
            printer.EndDoc 
            End If
            Set rc = Nothing
 
 
 

Como pueden ver utilizo Space para dar algunos espacios, pero no sirve para centrar cuando un codigo o texto es de longitud muy grande.
En lo que he investigado sugieren el uso de CurrentY y CurrentX,  pero no encuentro ejemplos claros.

Alguien ha diseñado un ticket de venta que pueda echarme un cable?
Gracias y estamos por aqui investigando..