Cada tipo de TPV tiene una secuencia de caracteres para abrir el cajón.
Normalmente son caracteres que se envían a través del puerto de impresora.
Esta secuencia suele empezar por el carácter Escape Chr$(27) .
Una secuencia tipo es:
Chr$(27) & "p" & Chr$(0) & Chr$(100) & Chr$(250)
Con lo que el procedimiento quedaría así:
________________________________________
Public Sub AbrirCajon()
On Error GoTo HayError
Dim intFichero As Integer
Dim strCadenaApertura As String
nfile = FreeFile
strCadenaApertura = Chr$(27) & "p" & Chr$(0) & Chr$(100) & Chr$(250)
Open "Lpt1" For Output As #intFichero
Print #intFichero, strCadenaApertura;
Close #intFichero
Exit Sub
HayError:
MsgBox "No puedo abrir el cajón", _
vbInformation, _
" Error en el procedimiento AbrirCajon"
Resume Next
End Sub
________________________________________
Saludos desde la calle Estafeta de Pamplona:
Eduardo Olaz
Microsoft [MVP] Access
eduardoALGARROBAolaz.net
Post by Luis Enrique Velez RSaludos desde Colombia. Alguien conoce un codigo en access para abrir un
cajon monedero o caja Registradora en un POS (Punto de Venta). Gracias