Public NamePrinter As String
Sub ButtonScan_Click
Ble.ScanPrinter
End Sub
Sub ButtonSendText_Click
Ble.InitializePrinter
Ble.RightJustify
Ble.Writeline(ESC_POS.DoubleOn & "RIGHT PRINT" & ESC_POS.DoubleOff)
Ble.CenterJustify
Ble.Writeline(ESC_POS.FontA_DoubleHight & "CENTER PRINT" & ESC_POS.FontA_Normal)
'Ble.LeftJustify
Ble.Writeline("LEFT PRINT")
End Sub
Sub ButtonImage_Click
Ble.PrintBitmap(LoadBitmap(File.DirAssets,"qr.jpg"))
End Sub
' --------------------------- BLE EVENT -----------------------
Sub Ble_PrinterFound(Name As String, ID As String)
NamePrinter=Name
log($"Found device: ${NamePrinter} ${CRLF}(${ID})"$)
Ble.connect(ID)
End Sub
Sub Ble_Connected(services As List)
log($"Connect to printer: ${NamePrinter}"$)
End Sub
Sub Ble_Disconnected
log("Diconnect")
End Sub
Private Sub Ble_ImageWriteComplete
LabelInfo.Text="Image Printed "
End Sub
Private Sub Ble_WriteComplete (Characteristic As String, Success As Boolean)
LabelInfo.Text="Text Printed "
End Sub