21/09/2008, 18:59
|
| | | Fecha de Ingreso: abril-2008
Mensajes: 23
Antigüedad: 17 años, 6 meses Puntos: 0 | |
 Respuesta: Abrir cajon
YA ENCONTRE OTRA SOLUCION:
Public Sub open_cashdrawer()
Dim intFileNo As Integer = FreeFile()
FileOpen(1, "c:\temp.txt", OpenMode.Output)
PrintLine(1, Chr(27) & "p" & Chr(0) & Chr(25) & Chr(250))
FileClose(1)
Shell("print /d:lpt1 c:\temp.txt", vbNormalFocus)
End Sub
PERO AHORA ME FALTA HALLAR EL CODIGO PARA VERIFICAR EL ESTADO DEL CAJON (ABIERTO O CERRADO) |