B4X FEED CPCL Bluetooth Print

[practicalsoft]

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...
Click to expand...

برای دیدن لینک ها باید ثبت نام کنید

برای دیدن لینک ها باید ثبت نام کنید