Dim ESC_JUSTIFY_LEFT As String = Chr(27)&"a"&Chr(0)
Dim ESC_JUSTIFY_CENTER As String = Chr(27)&"a"&Chr(1)
Dim ESC_JUSTIFY_RIGHT As String = Chr(27)&"a"&Chr(2)
Dim ESC_FORMAT_NORMAL As String = Chr(27)&"!"&Chr(0)
Dim ESC_FORMAT_DWIDTH As String = Chr(27)&"!"&Chr(0x28)