Setting EPSON TM-U220

Open "COM1" For Output As #1

Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC @)
Print #1, Chr$(&H1B); "a"; Chr$(1); 'Specifies a centered printing position (ESC a)
Print #1, Chr$(&H1B); "!"; Chr$(0); 'Specifies font A (ESC !) / 33 cpl
Print #1, "January 14, 2002 15:00";
Print #1, Chr$(&H1B); "d"; Chr$(3); 'Prints and 3 line feeding (ESC d)
Print #1, Chr$(&H1B); "a"; Chr$(0); 'Selects the left print position (ESC a)
Print #1, Chr$(&H1B); "!"; Chr$(1); 'Selects font B / 40 cpl
Print #1, "TM-U210B $20.00"; Chr$(&HA);
Print #1, "TM-U210D $21.00"; Chr$(&HA);
Print #1, "PS-170 $17.00"; Chr$(&HA);
Print #1, Chr$(&HA); 'Line feeding (LF)
Print #1, Chr$(&H1B); "!"; Chr$(17); 'Selects double-height mode
Print #1, "TOTAL $58.00"; Chr$(&HA);
Print #1, Chr$(&H1B); "!"; Chr$(0); 'Cancels double-height mode
Print #1, "------------------------------"; Chr$(&HA);
Print #1, "PAID $60.00"; Chr$(&HA);
Print #1, "CHANGE $ 2.00"; Chr$(&HA);
Print #1, Chr$(&H1D); "V"; Chr$(66); Chr$(0); 'Feeds paper & cut

Close #