Dim usb1 As UsbSerial
Dim astreams1 As AsyncStreams
Dim listaParamPRNUSB As List
Const eClear As String = Chr(27) & Chr(64)'"@"
Const eCentre As String = Chr(27) & Chr(97) & Chr(1)'"1"
Const eLeft As String = Chr(27) & Chr(97) & Chr(0)'"0"
Const eRight As String = Chr(27) & Chr(97) & Chr(2)'"2"
Const eDrawer As String = eClear & Chr(27) & "p" & Chr(0) & ".}"
Const eCut As String = Chr(27) & "i" & CRLF 'CORTE PARCIAL
Sub ImprimirUSB
If usb1.UsbPresent(1) = usb1.USB_NONE Or usb1.UsbPresent(1) <> usb1.USB_DEVICE Then
MsgboxAsync("Impresora No Conectada!", "ERROR")
Return
End If
If Not(listaParamPRNUSB.IsInitialized) Then
Dim rFicheroParametros As TextReader
rFicheroParametros.Initialize(File.OpenInput(rp.GetSafeDirDefaultExternal("") & "/Config", "prnusb.cfg"))
listaParamPRNUSB.Initialize
listaParamPRNUSB = rFicheroParametros.ReadList
rFicheroParametros.Close
End If
If usb1.HasPermission(1) Then
If listaParamPRNUSB.Get(0) = "0" Or listaParamPRNUSB.Get(0) = "2" Then
usb1.SetCustomDevice(listaParamPRNUSB.Get(0), listaParamPRNUSB.Get(1), listaParamPRNUSB.Get(2))
End If
Dim dev As Int
dev = usb1.Open(listaParamPRNUSB.Get(3), 1)
If dev <> usb1.USB_DEVICE Then
MsgboxAsync("Error Abriendo Puerto USB 1", "ERROR")
Return
End If
astreams1.Initialize(usb1.GetInputStream, usb1.GetOutputStream, "astreams1")
usb1.SetParameters(listaParamPRNUSB.Get(3), listaParamPRNUSB.Get(4), _
listaParamPRNUSB.Get(5), listaParamPRNUSB.Get(6))
ProgressDialogShow("Imprimiendo...")
'════════════════════════════════════
PrintTicket
'════════════════════════════════════
astreams1.Close
usb1.Close
Else
usb1.RequestPermission(1)
End If
End Sub
