Spanish [SOLUCIONADO]Impresora ticket

[Jorgelcr]

Alguien pudo sacar algo en claro?

 

[TILogistic]

puedes probar esta app, es similar a la que enviaste:

RTPrinter - Aplicaciones en Google Play

proporcionar un servicio de impresión

play.google.com

y me cuentas.

Si no me equivoco usa el mismo SDK.

 

[Jorgelcr]

hola,

El problema es que no sé como agregar a mi proyecto este sdk

 

[TILogistic]

Solo quiero que pruebe esa APP. ya que no tengo su impresora.

Quiero saber si es el mismo SDK que tengo, con esto ya puedo saber como realizar conexión e imprimir ESC/POS.

Saludos,

 

[Jorgelcr]

ahh. pruebo y te digo!!

 

[TILogistic]

Mira esto:

USB ticket printer - error when open(9600,1)

Hi, I', using Usb Serial library 2.4 and my usb ticket printer is recognized. Demo example from library 2.4 prompt user to accept permissions but when code try to open the port it fails. That could be wrong to get the error and app enter in the line: Log("Error opening USB port 1") ...

www.b4x.com

usb1.SetCustomDevice (usb1.DRIVER_SILABS, 0x4B8, 0xE15)

 

[TILogistic]

Las pruebas que te pido es solo para saber si lo que tenemos sirve para esta marca de impresoras (POS IBERICA).

Saludos,

 

[TILogistic]

sube tu proyecto y te ayudamos, así tu nos ayuda a probar en esta marca.

Saludos,

 

[Jorgelcr]

Hola,

Al final gracias a vuestra ayuda ya consigo imprimir mediante usb con la impresora de tickets.
Os pongo el codigo que he utilizado par comprobar que funcionase. Mil gracias @oparra

Sub btnConnect_Click
    USBConnect(1,19200)
End Sub

Sub btnPrint_Click
    USBPrint
End Sub

Sub USBConnect(USBDevice As Int, USBBaudRate As Int )
    
    
    
    If UsbSerial1.UsbPresent(USBDevice) = UsbSerial1.USB_NONE Then    ' Ver_2.4
        xui.MsgboxAsync("No se encuentra puerto USB", "Aviso")
        Return
    End If
    
    If (UsbSerial1.HasPermission(USBDevice)) Then    ' Ver_2.4
        
        xui.MsgboxAsync(UsbSerial1.DeviceInfo(USBDevice),"DeviceInfo")
        
'        UsbSerial1.SetCustomDevice(UsbSerial1.DRIVER_SILABS, 0xFE6, 0x811E)
'        UsbSerial1.SetCustomDevice(UsbSerial1.DRIVER_SILABS, 4070, 33054)
    
        If Not (UsbSerial1.Open(USBBaudRate, USBDevice) = UsbSerial1.USB_NONE) Then
            AStreams1.Initialize(UsbSerial1.GetInputStream, UsbSerial1.GetOutputStream, "astreams1")
            UsbSerial1.SetParameters(USBBaudRate, UsbSerial1.DATABITS_8, UsbSerial1.STOPBITS_1, UsbSerial1.PARITY_NONE)
        Else
            xui.MsgboxAsync("Error opening USB port","Error")
        End If
    Else
        UsbSerial1.RequestPermission(USBDevice)  ' Ver_2.4
    End If
End Sub
 
Sub USBPrint
    Dim PrintWrite As String
 
'    Resetear la impresora
    PrintWrite = Chr(27) & Chr(64)

'    Fecha y Hora
    PrintWrite = PrintWrite & "TODAY: " & DateTime.Date(DateTime.Now) & CRLF
    
'    Imprimir
    AStreams1.Write(PrintWrite.GetBytes("ISO-8859-9")) 'o UTF-8
    
    AStreams1.Close
    
End Sub