Dim myBytes() As Byte
myBytes=Array As Byte(0x1B,0x47,0x01) 'to set bold mode
BTAStreamPrinter.Write(myBytes) 'to send previous instruction to printer
BTAStreamPrinter.Write("HELLO".GetBytes("UTF8"))
myBytes=Array As Byte(0x0D) 'to add CR
BTAStreamPrinter.Write(myBytes) 'to print the string