Sub Process_Globals
Dim cmp20 As Serial
Dim printer As TextWriter
End Sub
Sub Printer_Connected (Success As Boolean)
If Success Then
ToastMessageShow("Connected successfully", False)
printer.Initialize(cmp20.OutputStream)
Else
Msgbox(LastException.Message, "Error connecting.")
End If
End Sub
Sub StartPrinter
Dim PairedDevices As Map
Dim l As List
Dim res As Int
Try
PairedDevices = cmp20.GetPairedDevices
Catch
End Try
If PairedDevices.Size = 1 Then
cmp20.Connect(PairedDevices.Get(PairedDevices.GetKeyAt(0)))
Else
l.Initialize
For i = 0 To PairedDevices.Size - 1
l.Add(PairedDevices.GetKeyAt(i))
Next
res = InputList(l, "Choose device", -1)
If res <> DialogResponse.CANCEL Then
cmp20.Connect(PairedDevices.Get(l.Get(res)))
End If
End If
End Sub
Sub pprint(xString As String)
printer.WriteLine(xString)
printer.Flush
End Sub
Sub SalePrint_Click
For xc=0 To slList1.Size - 1
pprint(slList1.GetItem(xc))
Next
End Sub