Sobre impresoras USB

09/04/2008 - 17:33 por Jordi Jofre Juanhuix | Informe spam
Alguien sabe como abrir el cajón de una impresora USB.

He visto que el puerto asociado a esta impresora es ESPPRT001

Private Sub Command2_Click()
Dim i, CajAbre, comando
'Open "ESDPRT001" For Output As #1
Open "\\.\ESDPRT001" For Output As #1
CajAbre = "[027],[112],[000],[100],[100]"
comando = ""
For i = 1 To Len(CajAbre) Step 6
comando = comando & Chr(Val(Mid(CajAbre, i + 1, 3)))
Next i
Print #1, comando;
Close #1
DoEvents
End Sub

he probado esto, que es lo que hago para LPT1, pero nada.

La impresora es una Epson TM-T88IV. He visto que en la web hay una OCX para
desarrollo pero
aún no la he conseguido descargar.

Cualquier información sobre impresoras USB y VB será bienvenida.

Preguntas similare

Leer las respuestas

#1 Jordi Jofre Juanhuix
09/04/2008 - 17:53 | Informe spam
Perdón, me he equivocado de foro :-)

Saludos

"Jordi Jofre Juanhuix" escribió en el mensaje
news:
Alguien sabe como abrir el cajón de una impresora USB.

He visto que el puerto asociado a esta impresora es ESPPRT001

Private Sub Command2_Click()
Dim i, CajAbre, comando
'Open "ESDPRT001" For Output As #1
Open "\\.\ESDPRT001" For Output As #1
CajAbre = "[027],[112],[000],[100],[100]"
comando = ""
For i = 1 To Len(CajAbre) Step 6
comando = comando & Chr(Val(Mid(CajAbre, i + 1, 3)))
Next i
Print #1, comando;
Close #1
DoEvents
End Sub

he probado esto, que es lo que hago para LPT1, pero nada.

La impresora es una Epson TM-T88IV. He visto que en la web hay una OCX
para desarrollo pero
aún no la he conseguido descargar.

Cualquier información sobre impresoras USB y VB será bienvenida.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida