android 蓝牙打印代码,分享一个b4a下安卓操作蓝牙打印机的代码

b4a的  用到 Serial的库 实测过能用

另外:有人有    zxing_b4a_1.3plus_lib_demo.zip 的库没有？

关键代码

Sub Process_Globals

Dim o_Serial                     As Serial        ' Objeto que contiene la comunicacion con los dispositivos

Dim o_Printer                    As TextWriter    ' Objeto que contiene la informacion a imprimir

Dim o_Printer_Conected As Boolean        ' Indica si la impresora está conectada

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("balance")

If FirstTime Then

o_Serial.Initialize("Printer")

StartPrinter

End If

End Sub

Sub Printer_Connected (Success As Boolean)     ' 连接成功事件

If Success Then

o_Printer.Initialize2(o_Serial.OutputStream,"GB2312")

'printer.WriteLine(PrintBuffer)

Msgbox("Printer Connected!","")

'printer.Close

'cmp20.Disconnect

o_Printer_Conected=True

Else

If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then

StartPrinter

End If

End If

End Sub

Sub StartPrinter   '初始化 串口

Dim PairedDevices        As Map

Dim lcPrinterName As String

PairedDevices = o_Serial.GetPairedDevices

Dim l As List

l.Initialize

For i = 0 To PairedDevices.Size - 1

lcPrinterName = PairedDevices.GetKeyAt(i)

l.Add(lcPrinterName)

Next

'

Dim res As Int

res = InputList(l, "Seleccione la Impresora", -1) 'show list with paired devices

If res <> DialogResponse.CANCEL Then

'lcPrinterAddress= PairedDevices.Get(l.Get(res))

lcPrinterName = l.Get(res)

Msgbox("Conectarse a: " & lcPrinterName,"提醒")

o_Serial.Connect(PairedDevices.Get(l.Get(res))) 'convert the name to mac address

End If

End Sub

Sub balPrint_Click   '输出打印

o_Printer.WriteLine("Print Test")

o_Printer.WriteLine("--------------------------")

o_Printer.WriteLine("打印中文: " & "中文字符集打印没问题")

o_Printer.Flush

End Sub