Macro para abrir cajon portamonedas

[(痐.._..[BrAvO].._..疮)]

Buenas a todos, que macro puedo utilizar para la apertura del cajon
portamonedas?

gracias

--
(痐.._..[BrAVo].._..疮)

Windows XP Profesional Service Pack 1
55690-OEM-0046684-88608
AMD Athlon XP 2400
1 GB RAM
Galicia - Xacobeo 2004
www.xacobeo.es

[Eduardo Olaz]

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
ALGARROBA = @

"(¯`.._..[BrAvO].._..´¯)" <mundosuni2@(puto_spam)hotmail.com> escribió en el
mensaje news:ujAcNrc...@TK2MSFTNGP11.phx.gbl...

> Buenas a todos, que macro puedo utilizar para la apertura del cajon
> portamonedas?
>
> gracias
>
> --

> (¯`.._..[BrAVo].._..´¯)

[(痐.._..[BrAvO].._..疮)]

eso lo hago en un modulo y luego lo ejecuto con una macro?

gracias

--
(¯`.._..[BrAVo].._..´¯)

Windows XP Profesional Service Pack 1
55690-OEM-0046684-88608
AMD Athlon XP 2400
1 GB RAM

"Eduardo Olaz" <eduardoA...@olaz.net> escribió en el mensaje
news:%23y0b%23zciE...@TK2MSFTNGP12.phx.gbl...

[(痐.._..[BrAvO].._..疮)]

ya puse el codigo que me diste y la agrege los codigos de mi TPV que son:

strCadenaApertura = Chr$(27) & "p" & Chr$(112) & Chr$(48) & Chr$(60) &
Chr$(240)

y sin embargo cuando lo ejecuto me pone que no puedo abrir el cajon :-(

--
(¯`.._..[BrAVo].._..´¯)

Windows XP Profesional Service Pack 1
55690-OEM-0046684-88608
AMD Athlon XP 2400
1 GB RAM

"Eduardo Olaz" <eduardoA...@olaz.net> escribió en el mensaje
news:%23y0b%23zciE...@TK2MSFTNGP12.phx.gbl...

[Eduardo Olaz]

Supongo que pondrás algún botón en un formulario para abrir el cajón

Supongamos que ese botón se llama cmdAbrirCajon

En el evento Click de ese botón escribe

Private Sub cmdAbrirCajon_Click()
AbrirCajon
End Sub

Con eso debería ser suficiente.

[Eduardo Olaz]

Si te muestra el "cuadro de mensaje" con el texto "No puedo abrir el cajón"
es que se produce un error en el procedimiento AbrirCajon().
Comprueba en qué linea del procedimiento se produce.

Supongo que será porque el TPV no puede abrir el puerto de la impresora
LPT1.

Si es así verifica las conexiones.

Saludos desde la calle Estafeta de Pamplona:

Eduardo Olaz
Microsoft [MVP] Access

eduardoALGARROBAolaz.net
ALGARROBA = @

"(¯`.._..[BrAvO].._..´¯)" <mundosuni2@(puto_spam)hotmail.com> escribió en el

mensaje news:OrPPW8ci...@TK2MSFTNGP11.phx.gbl...

[Ju@nK]

Mira por ejemplo que lo tienes en LPT1 y no LPT2 u otro.

--
Salu2
Ju@nK
www.juank.tk

"Eduardo Olaz" <eduardoA...@olaz.net> escribió en el mensaje

news:%23aEcmDd...@TK2MSFTNGP09.phx.gbl...

[(痐.._..[BrAvO].._..疮)]

nada, no hay manera, debe haber algo en el codigo que no lo acepta

gracias de todas formas

--
(¯`.._..[BrAVo].._..´¯)

Windows XP Profesional Service Pack 1
55690-OEM-0046684-88608
AMD Athlon XP 2400
1 GB RAM

"Ju@nK" <con...@hotmail.com> escribió en el mensaje
news:e6kHnhdi...@TK2MSFTNGP11.phx.gbl...

[Ju@nK]

Bravo, en cierta ocasión al Búho le fallaba una función pues al enviar una
cadena de caracteres, el sistema los interpretaba de otra forma y la
solución que le dí (y funcionó) era una tontería, agregar "'" al principio y
final de la cadena, con lo que quedaría:

strCadenaApertura = "'" & Chr$(27) & "p" & Chr$(112) & Chr$(48) & Chr$(60) &
Chr$(240) & "'"

ojo es " ' " todo junto ;-)

--
Salu2
Ju@nK
www.juank.tk

"(¯`.._..[BrAvO].._..´¯)" <mundosuni2@(puto_spam)hotmail.com> escribió en el

mensaje news:%23Y435wO...@TK2MSFTNGP12.phx.gbl...

[Búho]

...cierto, cierto...me acuerdo perfectamente :-D

--

Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu
---

---
Este correo ha sido testeado y no tiene virus (Al menos conocidos). Saludos
de Francisco Javier García Aguado (Buho)
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.744 / Virus Database: 496 - Release Date: 24/08/2004

[Ju@nK]

Por cierto, ¿ volviste a intentar conexiones por Internet ?

--
Salu2
Ju@nK
www.juank.tk
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:Oz68s1Zj...@tk2msftngp13.phx.gbl...