Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Yo tube un problema parecido y encontre unos convertidores de puerto LPT1 a COM1 y viceversa. no se si te puede ayudar.

Pregunta en http://electronicweb2001.com/tienda/...alog/index.php o en http://www.microelectronics.es/. Quiza puedan ayudarte. Tienen un monton de cables y convertidores para estos problemas.

Suerte. La necesitaras
Manuel
"Uno +" <estenoerestu***terra.es> escribió en el mensaje news:J8lQf.774814$kp.5467282***telenews.teleline.es. ..
Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Yo tube un problema parecido y encontre unos convertidores de puerto LPT1 a COM1 y viceversa. no se si te puede ayudar.

Pregunta en http://electronicweb2001.com/tienda/...alog/index.php o en http://www.microelectronics.es/. Quiza puedan ayudarte. Tienen un monton de cables y convertidores para estos problemas.

Suerte. La necesitaras
Manuel
"Uno +" <estenoerestu***terra.es> escribió en el mensaje news:J8lQf.774814$kp.5467282***telenews.teleline.es. ..
Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Yo tube un problema parecido y encontre unos convertidores de puerto LPT1 a COM1 y viceversa. no se si te puede ayudar.

Pregunta en http://electronicweb2001.com/tienda/...alog/index.php o en http://www.microelectronics.es/. Quiza puedan ayudarte. Tienen un monton de cables y convertidores para estos problemas.

Suerte. La necesitaras
Manuel
"Uno +" <estenoerestu***terra.es> escribió en el mensaje news:J8lQf.774814$kp.5467282***telenews.teleline.es. ..
Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Yo tube un problema parecido y encontre unos convertidores de puerto LPT1 a COM1 y viceversa. no se si te puede ayudar.

Pregunta en http://electronicweb2001.com/tienda/...alog/index.php o en http://www.microelectronics.es/. Quiza puedan ayudarte. Tienen un monton de cables y convertidores para estos problemas.

Suerte. La necesitaras
Manuel
"Uno +" <estenoerestu***terra.es> escribió en el mensaje news:J8lQf.774814$kp.5467282***telenews.teleline.es. ..
Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Yo tube un problema parecido y encontre unos convertidores de puerto LPT1 a COM1 y viceversa. no se si te puede ayudar.

Pregunta en http://electronicweb2001.com/tienda/...alog/index.php o en http://www.microelectronics.es/. Quiza puedan ayudarte. Tienen un monton de cables y convertidores para estos problemas.

Suerte. La necesitaras
Manuel
"Uno +" <estenoerestu***terra.es> escribió en el mensaje news:J8lQf.774814$kp.5467282***telenews.teleline.es. ..
Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Yo tube un problema parecido y encontre unos convertidores de puerto LPT1 a COM1 y viceversa. no se si te puede ayudar.

Pregunta en http://electronicweb2001.com/tienda/...alog/index.php o en http://www.microelectronics.es/. Quiza puedan ayudarte. Tienen un monton de cables y convertidores para estos problemas.

Suerte. La necesitaras
Manuel
"Uno +" <estenoerestu***terra.es> escribió en el mensaje news:J8lQf.774814$kp.5467282***telenews.teleline.es. ..
Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Yo tube un problema parecido y encontre unos convertidores de puerto LPT1 a COM1 y viceversa. no se si te puede ayudar.

Pregunta en http://electronicweb2001.com/tienda/...alog/index.php o en http://www.microelectronics.es/. Quiza puedan ayudarte. Tienen un monton de cables y convertidores para estos problemas.

Suerte. La necesitaras
Manuel
"Uno +" <estenoerestu***terra.es> escribió en el mensaje news:J8lQf.774814$kp.5467282***telenews.teleline.es. ..
Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Yo tube un problema parecido y encontre unos convertidores de puerto LPT1 a COM1 y viceversa. no se si te puede ayudar.

Pregunta en http://electronicweb2001.com/tienda/...alog/index.php o en http://www.microelectronics.es/. Quiza puedan ayudarte. Tienen un monton de cables y convertidores para estos problemas.

Suerte. La necesitaras
Manuel
"Uno +" <estenoerestu***terra.es> escribió en el mensaje news:J8lQf.774814$kp.5467282***telenews.teleline.es. ..
Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub

Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.

Uno + nos comentaba un dia en es.comp.bd.ms-access, y con tan sabias
palabras, nos enseño la luz:

>
> Tengo una secuencia que imprime en el puerto indicado. Con el puerto
> LPT1 funciona perfectamente. Con el puerto serie no. Despu‚s de imprimir
> hago una llamada a este procedimiento para abrir el caj¢n portamonedas.

Esto es más de VB que de Access, ¿no?

--
Press Play Then Any Key
http://www.pressplaythenanykey.com/

FAQ de es.comp.lenguajes.php:
http://www.pclandia.net/escomplenguajesphp
http://faq.guatemalanetworks.com

Mi Freeware:
http://www.pclandia.net/lexsparrow/