B4A Class Bluetooth ESC/POS Printer Class

For the last couple of weeks I have been playing with an 80mm Bluetooth ESC/POS thermal printer I bought off eBay, new and delivered, for the ludicrously cheap price of £20. While the print quality, particularly of images with large areas of black (they are gray due to power supply or thermal dissipation limitations probably), is not great it is adequate. The printer itself seems to be a generic Chinese unit (no surprise there then!) which is re-badged by all and sundry and sold at a remarkably wide range of prices.

Here then is a Printer class that will connect by Bluetooth to the printer and enable access to most of the printer functions, including barcodes and image preparation and printing. The included demo shows the capabilities that are available. To run the demo you will need a paired Bluetooth printer that is switched on. The Printer class uses the BitmapCreator, RandomAccessFile and Serial libraries.

On my printer the only thing that doesn't seem to work properly is QR code generation. Small QR codes don't seem to be able to be decoded by scanners and larger ones look obviously wrong with part of the top of the code replicated at the bottom when printed.

The obvious capabilities missing (so far!) are user defined characters and non-volatile bit images. Also not implemented are some codes that are either duplicates of available commands or ones whose functions I don’t understand.

The class module is included as source code in the demo so you can add any missing capabilities you need. If you add a significant one then please post it for others to play with.

EDIT: Version 2 now posted includes support for creating custom characters. See post #5 for details

 

[vecino]

How about:

Wait For (printer1.Connect) Complete (Success As Boolean)

java.lang.NullPointerException: Attempt to write to field 'java.lang.Exception anywheresoftware.b4a.BA$SharedProcessBA.lastException' on a null object reference in method 'void anywheresoftware.b4a.BA.setLastException(java.lang.Exception)'

 

[vecino]

Why do you want to use a Wait For?

This sub is only executed when the printer actually connects or times out

I just need something that should be simple and straightforward but I can't get it, the steps are:

Loop until the user answers that he doesn't want to print.
    if not retry then ask: Print?
    if it is retry then don't ask: Print?
    Connect printer
    if not Connection ok then ask "No connection, retry?"
    if connection ok then
        Print
        Disconnect printer
End of loop

 

[aeric]

Try clean the project and try again.
I put a Log(Success) after the line, it returns true. But I think this is wait for user answer is completed, not printer is connected.

 

[vecino]

I have come up with something like this, it looks like it might work for what I need.
I don't know if that loop can bring any problems.

iConnected = -1
Printer1.Connect                  
Do While iConnected = -1
  Sleep(0)
Loop

If iConnected=1 Then
  PrintDocu
Else
  ToastMessageShow("Printer Not connected",False)
End If
         

Sub Printer1_Connected( Success As Boolean )
    If Success Then iConectada=1 Else iConectada=0
End Sub

 

[Xfood]

I believe if you have any problems, you may never get out of this cycle,
if you really want to use this method I would do something like this to establish a maximum time for the possible exit.

iConnected = -1
Dim now As Long =DateTime.now
Printer1.Connect                 
Do While iConnected = -1
  Sleep(0)
If DateTime.now-now>=1000 Then Exit   ' whatever you want'
Loop