Publicado el 5 comentarios

Funciones para impresión de Ticket

Existen varias formas imprimir un ticket de venta tanto en pantalla como en la miniptinter.
El formato de ticket 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 predeterminada de 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 de ticket, corteX y CorteZ _
Enviamos a la impresorade tickets que está configurada en ESTACION01
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla 'cSalida es el texto que se imprimirá
'

Si deseamos ver el texto del ticket en una ventana emergente:

MsgBox ("" & cSalida) 'cSalida es el texto que se visualizará
'

Una segunda opción para visualizar el el texto del ticket en una ventana emergente.

Mymessage "" & cSalida 'cSalida es el texto que se visualizará
'

5 comentarios en “Funciones para impresión de Ticket

  1. Muy buena pagina! como podria hacerle para que a la hora de terminar una venta, me pregunte si deseo imprimir el ticket? Saludos!

    1. Gracias, ojalá corresponda con un pomo después del tip que se encuentra en esta liga que tomaremos como referencia
      http://helpmybusinesspos.info/ticket-explicado/

      En si formato de ticket, identifique y descomente estas líneas.

      ‘If MsgBox( “Desea imprimir el ticket”, vbQuestion + vbYesNo + vbDefaultButton2 )= vbNo Then’ Exit Sub’End If ‘en caso de quesolo necesite imprimir algunos tickets, no todos, tendria que descomentar este bloquecito

      Saludos y espero que deje algo aunque sea para curarla.
      José Félix

  2. Tengo un problema a la hora de imprimir el ticket, abre bien el cajon pero la impresora solo saca papel y no imprime. La impresora si funciona porque ya imprimi la pagina de prueba.

    De antemano agradezco tu ayuda.

  3. Hola espero me puedan ayudar cuando imprimó sale entre cortado dice importe y la cantidad sale abajo igual con el cambio dice cambio y la cantidad abajo todo lo que publican me a ayudado mucho gracias

    1. Buenas tardes.

      Podemos ofrecerle el editor de ticket en 700 pesos.
      http://helpmybusinesspos.info/editor-ticket/

      Saludos
      José Félix

Deja un comentario