Sub aprostampante() As Int
Dim portausb As Int
portausb = usbport
If PrintBuffer.Length > 0 Then
If usb1.UsbPresent(portausb) = usb1.USB_NONE Then ' Ver_2.4
Log("Msgbox - no device")
Msgbox("No USB device or accessory detected!", "Error")
Log("Msgbox - returned")
Return 0
End If
If (usb1.HasPermission(portausb)) Then ' Ver_2.4
usb1.SetCustomDevice(usb1.DRIVER_SILABS, 0xdd4, 0x198)
Dim dev As Int
dev = usb1.Open(19200, portausb) 'STMicroeletronics
If dev <> usb1.USB_NONE Then
Log("Connected successfully! 1")
astreams1.Initialize(usb1.GetInputStream, usb1.GetOutputStream, "astreams1")
'THIS IS VERY IMPORTANT- PARAMETER
usb1.SetParameters(19200, usb1.DATABITS_8,usb1.STOPBITS_1, usb1.PARITY_NONE)
'START PRINT
astreams1.Write(PrintBuffer.GetBytes("UTF8"))
astreams1.Close
Return 1
Else
Log("Error opening USB port "&portausb)
End If
Else
usb1.RequestPermission(portausb) ' Ver_2.4
End If
Else
Return 0
End If
End Sub