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 ♞.

Esta es la lista de fuentes que pueden ser de utilidad.

• Courier New. es la fuente que viene por deault
• Consolas. Es la fuente similar al ticket Oxxo

Fuente para ticket: Consolas

1 archivo(s) 812.55 KB

Descarga

• BatangChe

Fuente para Ticket: BatangChe

1 archivo(s) 6.79 MB

Descarga

• DotumChe

Fuente para Ticket: DotumChe

1 archivo(s) 4.97 MB

Descarga

• FangSong

Fuente para ticket: FangSong

1 archivo(s) 5.79 MB

Descarga

• Lucida Sans Typewriter
• Lucida Console
• MS Gothic
• MS Mincho

Fuente para ticket: MS Mincho

1 archivo(s) 5.19 MB

Descarga

• Narkisim

Fuente para ticket: Narkisim

1 archivo(s) 34.69 KB

Descarga

• NSimSun

Fuente para ticket: NSimSun

1 archivo(s) 7.64 MB

Descarga

• SimHei

Fuente para ticket: SimHei

1 archivo(s) 4.90 MB

Descarga

• SimSun-ExtB

Fuente para ticket: SimSun-ExtB

1 archivo(s) 7.95 MB

Descarga

En otros posts hemos mostrado cómo utilizarl las fuentes d eticket . Aún así, muy pronto publicaremos una propuesta para utilizar las fuentes y probar los resultados.

El cargo Cambiar fuente de ticket por otra más atractiva apareció primero en José Félix ♞.

• PadL(cadenaTexto,Longitud). Rellena de espacios a la izquierda; Alineación a la Derecha
• PadR(cadenaTexto,Longitud). Rellena de espacios a la derecha; Alineación a la Izquierda
• PadC(cadenaTexto,Longitud). Rellena de espacios al centro; Alineación Centrado

Alinear Texto con PadL, PadR y PadC

1 archivo(s) 88.00 KB

♞Registro
♞Entrar_D
♞Olvidé_P

'Analizamos si la nLongitud justificada es menos
'que la propia cadena enviada en parámetro.
if clen < nLongitud then temp = mid(char,1,nLongitud - clen) & temp 'Alineación a la Derecha end if PadL = temp end function 'PADR() Alineación a la IZQUIERDA inserta los caracteres de relleno a la derecha Function PadR(cadena,nLongitud) dim clen dim temp char = " " 'espacio en blanco on error resume next 'Tomamos la cadena enviada en el parámetro 'eliminando los chares vacios izq-dch temp = trim(cadena) clen = len(temp) for n=1 to nLongitud char = char & " " Next 'Analizamos si la nLongitud justificada es menos 'que la propia cadena enviada en parámetro. if clen < nLongitud then temp = temp & mid(char,1,nLongitud - clen) 'Alineación a la Izquierda end if PadR = temp end function 'PADC() Alineación al CENTRO inserta los caracteres de relleno a ambos lados Function PadC(cadena,nLongitud) dim clen dim temp char = " " 'espacio en blanco 'on error resume next 'Tomamos la cadena enviada en el parámetro 'eliminando los chares vacios izq-dch temp = trim(cadena) clen = len(temp) for n = 1 to nLongitud char = char & " " Next 'Espacios al lado Izquierdo nEspaciosA = formato((nLongitud - clen)/2 , "#.0") DondeEstaElPunto = clAt( ".", nEspaciosA ) - 1 'Espacios al lado derecho nEspaciosA = mid(nEspaciosA,1,DondeEstaElPunto) nEspaciosB = nLongitud -clen - nEspaciosA 'Analizamos si la nLongitud justificada es menos 'que la propia cadena enviada en parámetro. if clen < nLongitud then temp = mid(char,1,nEspaciosA) & _ temp & _ mid(char,1,nEspaciosB) 'Alineación a la Izquierda end if PadC = temp end function

Espero sea de utilidad estas funciones que dejo a su disposición en espera de que correspondan con un pomo para seguir inspirados.
Saludos
José Félix

El cargo Alinear y Centrar el texto del ticket con PadC, PadL y PadR apareció primero en José Félix ♞.