Editor de Tickets, impresión y ahorrar papel

1 archivo(s) 17.74 KB

♞Registro
♞Entrar_D
♞Olvidé_P

Muchos nos vemos en la necesidad de modificar la fuente y tamaño del ticket en MyBusiness POS.
Existen dos formas de hacerlo, depende del caso:

• Para Impresora conectada por cable LPT

En este caso, ir a la ruta dentro del business manager, Configuración–presonalización–procedimientos y rutinas de usuario–FORMATOTEXTO
El código es el siguiente:

Sub Main()
Dim p, s

On error resume next ‘En caso de error, el script continua sin mostrar error

‘Impresora de tickets definida en las Estación de trabajo
Set p = ImpresoraDefault(Ambiente.rstEstacion(“pticket”))

‘Ruta del logo: C:\archivos de programa\MyBusiness POS 2012\images\logo.jpg
‘El logo debe tener extensión .jpg
‘Los números 0, 0, 3, 4 son las coordenadas y tamaño del logo

‘Si desea imprimir el logo, descomenta estas dos lineas
‘ p.ScaleMode = 7 ‘ Centimetros
‘p.PaintPicture LoadPicture(Ambiente.Path & “\images\logo.jpg”), 0, 0, 3, 4

p.Font.Name = “Courier New” ‘Fuente recomendada: Tahoma o Courier New
p.Font.Size = 8 ‘Tamaño de la fuente, tamaño de letra

For n = 1 To 2 ‘Número de saltos de línea necesarios en el texto
s = s & vbCrLf ‘Saltos después del logo para evitar sobreescritura
Next

pt (p),(s) ‘ pt (print text) imprime el texto indicado (impresora), (texto)

pt (p),(Script.textToFormat)
p.EndDoc

End Sub
‘

• Para impresora USB (o impresora predeterminada de Windows)

El siguiente bloquecito de código lo podemos encontrar en el formato de ticket USB en la ruta Configuración–Personalización–Formatos del Sistema–Ticket USB.
Aquí podemos identificar la función EstableceFuente “Fuente a elegir”, TamañoFuente

IniciaDocumento 'Inicia con la impresión USB
' 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
'


El cargo Cambiar el tamaño de letra en Ticket apareció primero en José Félix ♞.

Editor de Tickets, impresión y ahorrar papel

1 archivo(s) 17.74 KB

♞Registro
♞Entrar_D
♞Olvidé_P

Para todos los usuarios de MyBusiness POS que no quieren que les aparezca el logo de la empresa en el ticket (en primera, ocupa más papel; en segundo lugar, si la impresora es de matriz de puntos, también se gasta la cinta de esta y la calidad no es nada agradable). los pasos son los siguientes:

1.  Una vez abierto del sistema como Administrador, en la parte del Business Manager tenemos que encontrar la siguiente ruta:

2.  Personalización + Procedimientos del Usuario

3.  Dentro de esta carpeta buscamos el procedimiento que se llama “FORMATOTEXTO”. lo abrimos para editarlo

4. En alguna parte de este pequeño archivo nos menciona algo parecido a esto:


p.PaintPicture LoadPicture(Ambiente.Path & "\images\logo.jpg"), 0, 0, 3, 4


lo que vamos a hacer es dejar esta linea como comentario (ponemos una apóstrofo al principio de la línea) para que no aparezca la imagen y quedaría así


'p.PaintPicture LoadPicture(Ambiente.Path & "\images\logo.jpg"), 0, 0, 3, 4


5. Hacemos una prueba. Ya no aparecerá la imagen; sin embargo, aún se desperdicia la misma cantidad de papel.

6. Para reducir la cantidad de papel, el espacio que ocupaba la imagen, vamos a poner también como comentario las líneas que están dentro de la estructura “For” (nuevamente, colocando un apóstrofo en al principio de cada línea).

También es posible cambiar el Tamaño y la Fuente de los tickets (Propiedades p.Font.Name y p.Font.Size), quedando así.


p.Font.Name = "Courier New"
p.Font.Size = 9
p.FontBold True

 

Guardamos los cambios y listo…Problema solucionado.

El cargo Cambiar letra en ticket MyBusiness y el Logo en un Ticket (Solucionado) apareció primero en José Félix ♞.