Abrir cajon

[abaylon]

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)