Android Question wifi print option

[hery71]

hello B4Acommunity
I try the ecs pos wifi print library:

it's run very nice but sometimes bug i must stop my B4A bridge for printing ???
my realproblem is how to change the line break height
changing font
alignement left ...
etc ...
Thank you in advance

 

[f0raster0]

What printer are you using?

it should be somethign like:
Printer.WriteLine(Chr(27) & "!" &Chr(8+16) & "Character Font A emphasized and double height" & CRLF)
Printer.WriteLine(Chr(27) & "!" &Chr(8) & "Character Font A emphasized" )


Edit: this link could help
http://stanislavs.org/helppc/epson_printer_codes.html

 

[hery71]

Hi
thank you for rapid response
first my printer is zonerich brand, a chineese pos printer
AND I TRY BU ITS DIFFERENT AS EPSON PRINT CODE
thankyou for the information
hery

 

[f0raster0]

Hi
thank you for rapid response
first my printer is zonerich brand, a chineese pos printer
AND I TRY BU ITS DIFFERENT AS EPSON PRINT CODE
thankyou for the information
hery

What model? http://www.zonerich.com/index.php?lang=en
I use this: xprinter XP-Q200, 80mm and this NT-5802LD 58mm

still I think it will work.. if it doesn't post you code here.

 

[hery71]

Hi
My model is Zonerich AB-T88 80 mm us connected onmy USB Router 192.x.x.x address

Sub sendprintnote
'Note
Dim hh As String
Dim mm As String
Dim lst() As String
DateTime.DateFormat= "dd/MM/yyyy"
hh = DateTime.GetHour(DateTime.Now)
mm = DateTime.GetMinute(DateTime.Now)
pt.Printnormal
pt.Printstopblack
pt.Printstopxiaxian
pt.Printbig
pt.printstring ("xxxxxxxxxxxxxxxxx")
pt.printstring ("xxxxxxxxxxxxxxxxx")
pt.Printnormal
pt.printstring (Chr(27) & "!" & Chr(22) & "NOTE N°xxxxx")
pt.printstring (tbl & "/" & pax & " Pax")
pt.printstring(DateTime.Date(datebclong)& "/" & hh & ":" & mm)
pt.printstring("serveur: xxxxxx")
pt.printstring("__________________________")
pt.printstring("______________________________________")
pt.Printblack
pt.printstring ( Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Total=" & somme)
pt.printstring("______________________________________")
pt.Printnormal
pt.cut
End Sub

HERE Chr(27) & "!" & Chr(22) give me bigger font
.....