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:
Código
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..