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)
Printer.AddBuffer_Writeline(ESC_POS.BoldOn & ESC_POS.FontA_DoubleWide & ESC_JUSTIFY_LEFT & strCategory & ESC_JUSTIFY_Right & strPrice )