發票機接rs232印中文

'必須將中文轉Byte Array且是big5
Dim big5 = System.Text.Encoding.GetEncoding("big5")
Dim Chtdata As Byte() = big5.GetBytes("統一麵 $90")
SerialPort1.Open()
SerialPort1.Write(Chtdata, 0, Chtdata.Length) '由 0 ~ 總長
SerialPort1.Close()

參考網址