Spanish [SOLUCIONADO]Impresora ticket

TILogistic

Expert
Licensed User
Longtime User
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,
 

TILogistic

Expert
Licensed User
Longtime User
Mira esto:


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

TILogistic

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

Saludos,
 

Jorgelcr

Active Member
Licensed User
Longtime User
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


B4X:
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
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…