solucion
Publicado por Juan (5 intervenciones) el 02/03/2002 12:52:21
Public Function ABRIR_CAJA()
Open "LPT1:" For Output As 1
Print #1, Chr(27) & Chr(112) & Chr(48) & Chr(200) & Chr(200);
Close 1
End Function
Open "LPT1:" For Output As 1
Print #1, Chr(27) & Chr(112) & Chr(48) & Chr(200) & Chr(200);
Close 1
End Function
Valora esta pregunta
0