Private Sub Command3_Click()
Open "\\andres\EPSONTM" For Output As #1 ' donde andres es el nombre del pc
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$(17); '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
Crear cuenta
