Android Question CPCL Bluetooth Print

[Pantelis Loizou]

hi to everyone

i need to convert the below VB6 Code to B4A language. any ideas will be appreciate a lot. the bluetooth printer now is working with cpcl emulation

printdata = "! 0 200 200 584 1" & vbCrLf
printdata = printdata + "LABEL" & vbCrLf
printdata = printdata + "TONE " & CStr(modGlobal.PrinterTone) & vbCrLf
printdata = printdata + "SPEED 5" & vbCrLf
printdata = printdata + "PAGE-WIDTH 384" & vbCrLf
printdata = printdata + "BAR(-SENSE)" & vbCrLf
printdata = printdata + "PREFEED(0)" & vbCrLf
printdata = printdata + "POSTFEED(0)" & vbCrLf
printdata = printdata + "PRESENT-AT 0 2" & vbCrLf
printdata = printdata + "COUNTRY(UK)" & vbCrLf
printdata = printdata + "CHAR-SET7 " & "CP-737" & vbCrLf
printdata = printdata + "BT 7 1 0" & vbCrLf
printdata = printdata + "VB 128 1 0 85 130 534 " & txtLabelItemNo.Text & vbCrLf
printdata = printdata + "BT(OFF)" & vbCrLf
printdata = printdata + "SETMAG 2 3" & vbCrLf

printdata = printdata + "T90 7 3 145 160 " & itemprice & vbCrLf '180
printdata = printdata + "SETMAG 0 0" & vbCrLf

printdata = printdata + "T90 7 1 165 185 " & "=" & vbCrLf '205
printdata = printdata + "SETMAG 0 0" & vbCrLf

printdata = printdata + "T90 7 1 165 180 " & "C" & vbCrLf '200
printdata = printdata + "SETMAG 0 0" & vbCrLf

If Len(ppwstring) <> 0 Then
printdata = printdata + "T90 0 3 230 200 " & ppwstring & vbCrLf
printdata = printdata + "SETMAG 0 0" & vbCrLf
Else
If chkSpecialoffer.Checked Then
printdata = printdata + "T90 0 3 230 200 Special Offer" & vbCrLf
printdata = printdata + "SETMAG 0 0" & vbCrLf
End If
End If

If Len(DLine2) > 0 Then
printdata = printdata + "T90 7 1 0 534 " & DLine1 & vbCrLf
printdata = printdata + "SETMAG 0 0" & vbCrLf

printdata = printdata + "T90 7 1 40 534 " & DLine2 & vbCrLf
printdata = printdata + "SETMAG 0 0" & vbCrLf

If Len(Trim(Me.lblLabelItemLevel.Text)) > 1 Then
printdata = printdata + "T90 0 2 80 534 " & Me.lblLabelItemLevel.Text & vbCrLf
printdata = printdata + "SETMAG 0 0" & vbCrLf
End If
Else
printdata = printdata + "T90 7 1 20 534 " & DLine1 & vbCrLf
printdata = printdata + "SETMAG 0 0" & vbCrLf
If Len(Trim(Me.lblLabelItemLevel.Text)) > 1 Then
printdata = printdata + "T90 0 2 80 534 " & Me.lblLabelItemLevel.Text & vbCrLf
printdata = printdata + "SETMAG 0 0" & vbCrLf
End If
End If
printdata = printdata + "SETMAG 0 0" & vbCrLf
printdata = printdata + "FORM" & vbCrLf
printdata = printdata + "PRINT" & vbCrLf

''//here replace the Encoding "windows-1255" to greek/xxxx encoding
arrByte1253 = Encoding.GetEncoding("ibm737").GetBytes(printdata)
wSerialPort.Write(arrByte1253, 0, arrByte1253.Length)

wSerialPort.Close()

 

[TILogistic]

see:
spanish

[SOLUCIONADO] Imprimir código de barras en impresora etiquetas (CPCL)

Hola, amigos, espero que estén todos bien. De nuevo estoy aquí con mis dudas existenciales. En este hilo recibí una ayuda muy importante para resolver un problema con la impresora bluetooth, básicamente el código que estoy usando es el de este otro hilo adaptado con los consejos que recibí en el...

www.b4x.com

Impresión Bluetooth TSC

Hola a todos, alguien me podria ayudar a traducir a B4A este ejemplo que brinda TSC para imprimir desde android a impresoras TSC utilizando la libreria serial o la clase esc/pos: Android Example for TSC Bluetooth import com.example.tscdll.TSCActivity; public class MainActivity extends Activity...

www.b4x.com

other

how to write cpcl printer language in b4a

dear all, i am newbie in b4a, I would like to know if anybody had written a sample program which using cpcl (mobile thermal printer) (for example zebra rw420/zq520) to do printing from b4a apps. thank you in advance.

www.b4x.com

search:

Search Results

www.b4x.com

I personally modified the class to be able to print on different commands (ESC/POS, ZPL, CPCL, etc)

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...

www.b4x.com

 

[Pantelis Loizou]

Hi Omar. I appreciate your reply but i am very beginner with B4A so i am facing a problem. i follow your examples but nothing happen. below you may find my code. could you please tell me what is wrong

Dim Serial1 As Serial
Dim Printer2 As OutputStream
Dim BConv As ByteConverter
Dim CPCLcomand() As Byte

CPCLcomand = BConv.StringToBytes("! 0 200 200 210 1", "ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("LABEL","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("TONE 5","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("SPEED 5","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("PAGE-WIDTH 384","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("BAR(-SENSE)","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("PREFEED(0)","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("POSTFEED(0)","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("PRESENT-AT 0 2","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("COUNTRY(UK)","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("COUNTRY(UK)","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("CHAR-SET7 " & "CP-737","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("BT 7 1 0","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("VB 128 1 0 85 130 534 " & txtPrintItem.Text,"ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("BT(OFF)","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("SETMAG 2 3","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("T90 7 3 145 160 " & txtPrice.Text,"ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("SETMAG 0 0","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("T90 7 1 165 185 " & "=","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("SETMAG 0 0","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("T90 7 1 165 180 " & "C","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("SETMAG 0 0","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("T90 7 1 20 534 " & txtDescription.Text,"ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("SETMAG 0 0","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("SETMAG 0 0","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("FORM","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)
CPCLcomand = BConv.StringToBytes("PRINT","ibm737")
Printer2.WriteBytes(CPCLcomand, 0, CPCLcomand.Length)

Printer2.Flush

 

[Pantelis Loizou]

 

[Pantelis Loizou]

I NEED SOMETHING LIKE THAT IF IS POSSIBLE

 

[TILogistic]

Dear looking at the printer configuration picture, you can use ESC/POS emulation and use "ESC/POS Bluetooth Printer 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...

www.b4x.com

Now why do you want to use CPCL emulation?