Excel - Impresión en EPSON TM-U375 desde Excel

Private Sub Command3_Click()

Open "\\aguerrero\EPSONTM" For Output As #1 ' Aqui aguerrero es mi maquina y epsontm es el nombre de la impresora lo puedes cambiar......Adicional , te dejo 

Print #1, Chr$(27); "@"; 'Initializes the printer (ESC @)

Print #1, Chr$(27); "a"; Chr$(1); 'Specifies a centered printing position (ESC a)

Print #1, Chr$(27); "!"; Chr$(0); 'Specifies font A (ESC !)

Print #1, "Fecha: " & Format(Date, "dd-MMMM-YYYY") & " Hora: " & Format(Time, "HH:MM:SS")

Print #1, Chr$(27); "d"; Chr$(3); 'Prints and 3 line feeding (ESC d)

Print #1, Chr$(27); "a"; Chr$(0); 'Selects the left print position (ESC a)

Print #1, Chr$(27); "F"; Chr$(1); 'Selects font B

Print #1, "TM-U210B $20.00"; Chr$(10);

Print #1, "TM-U210D $21.00"; Chr$(10);

Print #1, "PS-170   $17.00"; Chr$(10);

Print #1, Chr$(10); 'Line feeding (LF)

Print #1, Chr$(27); "!"; Chr$(53); 'Selects double-height mode

Print #1, "TOTAL $58.00"; Chr$(10);

Print #1, Chr$(27); "!"; Chr$(0); 'Cancels double-height mode

Print #1, Chr$(27); "a"; Chr$(2); 'Specifies a Full justification printing position (ESC a)

Print #1, "------------------------------"; Chr$(10);

Print #1, "PAID $60.00"; Chr$(10);

Print #1, "CHANGE $ 2.00"; Chr$(10);

'Print #1, Chr$(27); " r "; Chr$(1); "HOLA";

Print #1, Chr$(29); "V"; Chr$(66); Chr$(0); 'Feeds paper & cut

Close #1

End Sub