Ver Mensaje Individual
  #7
Antiguo 10 de agosto de 2017, 23:01
drvedia1981
Forero
Última Actividad 17.05.2022 22:45
Posts Posts: 66
Likes enviados Enviados: 3
Likes recibidos Recibidos: 9

Hola kUk este es el código emite un tique de turnos por una impresora térmica epson tm-t20ii, te comento que lo solucione con una ocx echa en vb6 que manejo de power si interesa la subo con fuente pero tendrían que adaptarla a cada necesidad.
Saludos

Código VB:
  1. SerialCom.Output = Chr(27) & "a" & Chr(49)
  2. SerialCom.Output = Chr(29) & Chr(40) & Chr(76) & Chr(6) & Chr(0) & Chr(48) & Chr(69) & Chr(32) & Chr(32) & Chr(1) & Chr(1)
  3. SerialCom.Output = Chr(29) & "!" & Chr(37)
  4. SerialCom.Output = "A-001" & Chr(10)
  5. SerialCom.Output = Chr(29) & "!" & Chr(0)
  6. SerialCom.Output = Chr(27) & "!" & Chr(17) & "Por favor espere el llamado en pantalla   20/07/2017 13:39" & Chr(10) & Chr(10) & Chr(27) & "!" & Chr(0)
  7. SerialCom.Output = Chr(29) & "h" & Chr(40)
  8. SerialCom.Output = Chr(29) & "w" & Chr(2)
  9. SerialCom.Output = Chr(29) & "H" & Chr(0)
  10. SerialCom.Output = Chr(29) & Chr(107) & Chr(4) & "A-125" & Chr(0)
  11. SerialCom.Output = Chr(27) & "a" & Chr(48)
drvedia1981 is offline   Responder Con Cita