Print ภาษาไทย ผ่าน Serial Port TMU220 Epson

รบกวนสอบถามหน่อยครับ
Print ภาษาไทย ผ่าน Serial Port TMU220 Epson
ไม่จัด ระดับให้ ต้องทำอย่างไรครับ
ADRport.Write("ทดสอบการพิมพ์" + Chr(13) + Chr(10)) ถ้าพิมพ์ อย่างนี้จะออกเป็น ????????????
ต้องแปลงเป็น Byte แล้วพิมพ์ จึงจะออกภาษาไทยแต่ไม่จัดระดับ
ต้องทำอย่างไรช่วยหน่อยครับ
For I = 1 To Len(strTempA)
byteBuffer(I - 1) = Asc(Mid(Trim(strTempA), I, 1))
Next
ADRport.WriteLine("")
ADRport.Write(byteBuffer, 0, intLength)
ADRport.WriteLine("")

ADRport.WriteLine("")
ADRport.Write(Chr(27) + Chr(45) + Chr(3))
ADRport.Write(byteBuffer, 0, intLength)

ADRport.WriteLine("")

ADRport.Write("B" + Chr(13) + Chr(10))





ขอบคุณครับ
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
'CHECK IF PORT IS CLOSED AND THEN OPEN COM PORT FROM COMOBOX PORT NAMES
ADRport.PortName = ComboBox1.SelectedItem
If Not ADRport.IsOpen Then
ADRport.Open()
End If
'THIS SET IS REQUIRED BY THE ADR112 TO CONFIGURE PORTA BIT 0 AS AN OUTPUT BIT. YOUR DEVICE MAY NOT REQUIRE THIS STEP
If ADRport.IsOpen Then

ADRport.Write(Chr(27) + Chr(116) + Chr(21) + Chr(&HBE) & Chr(&HD4) & Chr(&HC1) & Chr(&HBE) & Chr(&HEC) & Chr(&HE4) & Chr(&HB7) & Chr(&HC2))

'ADRport.Write(Chr(27) + Chr(116) + Chr(20))

ADRport.Write(Chr(27) + Chr(45) + Chr(3))

'Dim Str As String = "การค้นหา"
'Dim intLength As Integer = Str.Length
Dim intLength As Integer = 40
Dim I As Integer
Dim byteBuffer(40) As Byte
Dim strTempA As String

For I = 1 To 40
byteBuffer(I - 1) = 70 + I
Next
System.Text.Encoding.GetEncoding(874)
ADRport.WriteLine("")
ADRport.Write(byteBuffer, 0, intLength)
ADRport.WriteLine("")

For I = 1 To 40
byteBuffer(I - 1) = 110 + I
Next

ADRport.WriteLine("")
ADRport.Write(byteBuffer, 0, intLength)
ADRport.WriteLine("")

For I = 1 To 40
byteBuffer(I - 1) = 150 + I
Next

ADRport.WriteLine("")
ADRport.Write(byteBuffer, 0, intLength)
ADRport.WriteLine("")

For I = 1 To 40
byteBuffer(I - 1) = 190 + I
Next

ADRport.WriteLine("")
ADRport.Write(byteBuffer, 0, intLength)
ADRport.WriteLine("")

For I = 1 To 25
byteBuffer(I - 1) = 230 + I
Next

ADRport.WriteLine("")
'ADRport.Write("AAA", 0, 9)
ADRport.Write(byteBuffer, 0, intLength)
ADRport.WriteLine("")

'byteBuffer(0) = 161
'byteBuffer(1) = 210
'byteBuffer(2) = 195
'byteBuffer(3) = 164
'byteBuffer(4) = 233
'byteBuffer(5) = 164
'byteBuffer(7) = 210
'byteBuffer(8) = 203

ADRport.Write(Chr(27) + Chr(116) + Chr(21) + Chr(&HBE) & Chr(&HD4) & Chr(&HC1) & Chr(&HBE) & Chr(&HEC) & Chr(&HE4) & Chr(&HB7) & Chr(&HC2))

ADRport.Write(Chr(27) + Chr(45) + Chr(3))

strTempA = "ทดสอบการพิมพ์"
'ADRport.Write(Chr(27) + Chr(45) + Chr(3) + strTempA + Chr(13) + Chr(10), 0, intLength)

ADRport.Write("CPA11111110" + Chr(13) + Chr(10))

ADRport.WriteLine(strTempA)

ADRport.Write("CPA11111110" + Chr(13) + Chr(10))

ADRport.WriteLine(Chr(27) + Chr(45) + Chr(3) + strTempA)

ADRport.Write("ทดสอบการพิมพ์" + Chr(13) + Chr(10))
ADRport.Write("กินข้าว" + Chr(13) + Chr(10))
ADRport.Write("ทดสอบการพิมพ์" + Chr(13) + Chr(10))

ADRport.Write(EncodeString("ทดสอบการพิมพ์") + Chr(13) + Chr(10))
ADRport.Write(EncodeUTF8("ทดสอบการพิมพ์") + Chr(13) + Chr(10))

For I = 1 To Len(strTempA)
byteBuffer(I - 1) = Asc(Mid(Trim(strTempA), I, 1))
Next
ADRport.WriteLine("")
ADRport.Write(byteBuffer, 0, intLength)
ADRport.WriteLine("")

ADRport.WriteLine("")
ADRport.Write(Chr(27) + Chr(45) + Chr(3))
ADRport.Write(byteBuffer, 0, intLength)

ADRport.WriteLine("")

ADRport.Write("B" + Chr(13) + Chr(10))
ADRport.Write("C" + Chr(13) + Chr(10))
ADRport.Write("D" + Chr(13) + Chr(10))
ADRport.Write("E" + Chr(13) + Chr(10))
ADRport.Write("F" + Chr(13) + Chr(10))
ADRport.Write("G" + Chr(13) + Chr(10))
ADRport.Write("H" + Chr(13) + Chr(10))
ADRport.Write("I" + Chr(13) + Chr(10))
ADRport.Write("J" + Chr(13) + Chr(10))
ADRport.Write("K" + Chr(13) + Chr(10))
ADRport.Write("L" + Chr(13) + Chr(10))
ADRport.Write("M" + Chr(13) + Chr(10))

ADRport.Write(Chr(10) + Chr(27) + Chr(109))
End If
End Sub