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:

 Visual Basic |  copy code |? 
1
2
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla
3

Si queremos imprimir en USB, colocar:

 Visual Basic |  copy code |? 
01
02
'Código para impresora conectada por cable USB  
03
'o para la impresora predeterminada de Windows). 	
04
IniciaDocumento 	
05
  ' EstableceImpresora "Mi Impresora  laser" 'esta linea permite elegir impresora USB destino
06
	EstableceFuente "Courier New", 8    'Fuente que tendra el ticket USB	
07
	Say 0,.2, cSalida  'Alineación del texto, en pulgadas. cSalida es el texto a imprimir       	
08
FinDocumento    'Termina la Impresión USB
09
'Exit Sub  
10
'Exit Sub es por si deseamos que termine el proceso y saltar las lineas de código que le preceden	
11
 																																																																																	        '
12

Si deseamos imprimir en impresora conectada por cable LPT:

 Visual Basic |  copy code |? 
1
2
'Función para impresora conectada por cable LPT
3
'Impresión de ticket, corteX y CorteZ _	
4
Enviamos a la impresorade tickets que está configurada en ESTACION01	
5
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla   'cSalida es el texto que se imprimirá
6
																																																																																	        '
7

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

 Visual Basic |  copy code |? 
1
2
MsgBox ("" & cSalida) 'cSalida es el texto que se visualizará
3
																																																																																	        '
4

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

 Visual Basic |  copy code |? 
1
2
Mymessage "" & cSalida   'cSalida es el texto que se visualizará
3
																																																																																	        '
4

5 comments for “Funciones para impresión de Ticket

  1. Merit
    julio 28, 2016 at 5:22 pm

    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

  2. eduard bustamante
    febrero 23, 2016 at 5:33 pm

    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. Beto
    julio 14, 2015 at 8:39 pm

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

    • José Félix
      julio 14, 2015 at 8:48 pm

      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

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *


Time limit is exhausted. Please reload CAPTCHA.