' Full initialization + force CP850
Dim initSeq() As Byte = Array As Byte( _
0x1B, 0x40, _ ' ESC @ → Full reset (clear settings, reset mode)
0x1B, 0x52, 0x00, _ ' ESC R 0 → Set international character set to USA
0x1B, 0x74, 0x04, _ ' ESC t 4 → Set code page to CP850
0x1C, 0x2E _ ' FS . → Ensure Chinese mode is cancelled
)
' Initialize printer to CP850
Printer1.WriteBytes(initSeq)
Printer1.WriteString("10" & Chr (162) & "- 20¢" & CRLF & CRLF)
' Now print the Cedi/Cent symbol in CP850
Printer1.WriteBytes(Array As Byte(0x9B))
Printer1.WriteString(" 5.00" & CRLF)