Puededescargarde helpmybusinesspos.info el formato “ticket reducido” y por lo que identifico solo sería necesario quitar a algunas partes el texto que hace los saltos de línea :
& cLineaNueva
Para colocar la línea punteada, identifique la línea sonde dice
La ruta donde encontramos el formato deticketdentrodel business manager es: Configuración–Presonalización–Formatos del sistema–Ticket USB
Trataremos deidentificar la línea que dice IniciaDocumento y debajode esta podemos colocar el logo
IniciaDocumento 'tratamos deidentificar esta línea, indica el inicio de la impresión
'Ruta del logo: C:\archivos de programa\MyBusiness POS 2012\images\logo.jpg
'El logo debe tener extensión logo.jpg
' Los valores Col(0), Row(0), Col(3),Row(4) son las coordenadas inicio y el tamaño
Picture Ambiente.path & "\Images\logo.jpg", Col(0), Row(0), Col(3),Row(4)
'EstableceImpresora "Mi Impresora laser" 'esta linea permite elegir impresora USB destino
EstableceFuente "Courier New", 8 'Fuente que tendra el ticket USB
Say 0,0.2, cSalida 'Alineación del texto, en pulgadas. cSalida es el texto a imprimir
Existen varias formas imprimir un ticketde venta tanto en pantalla como en la miniptinter.
El formato deticket se encuentra en la ruta del business manager: configuración–personalizacion–formatos del sistema–TICKET. Abrir el código con doble clic e ir al final de este hasta identificar esta línea que se refiere a la impresión; ahí es posible aplicar diferentes opciones de impresión:
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla
Si queremos imprimir en USB, colocar:
'Código para impresora conectada por cable USB
'o para la impresora predeterminadade Windows).
IniciaDocumento
' EstableceImpresora "Mi Impresora laser" 'esta linea permite elegir impresora USB destino
EstableceFuente "Courier New", 8 'Fuente que tendra el ticket USB
Say 0,.2, cSalida 'Alineación del texto, en pulgadas. cSalida es el texto a imprimir
FinDocumento 'Termina la Impresión USB
'Exit Sub
'Exit Sub es por si deseamos que termine el proceso y saltar las lineas de código que le preceden
'
Si deseamos imprimir en impresora conectada por cable LPT:
'Función para impresora conectada por cable LPT
'Impresión deticket, corteX y CorteZ _
Enviamos a la impresoradetickets que está configurada en ESTACION01
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla 'cSalida es el texto que se imprimirá
'
Si deseamos ver el texto delticket en una ventana emergente:
MsgBox ("" & cSalida) 'cSalida es el texto que se visualizará
'
Una segunda opción para visualizar el el texto delticket en una ventana emergente.
Mymessage "" & cSalida 'cSalida es el texto que se visualizará
'
Con conocimientos básicos de programación podemos colocar el texto que necesitemos en el encabezado delticket, todo directo desde la edición del código deTicket.
