** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Abrir cajon monedero sin Imprimir ticket
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAbrir cajon monedero sin Imprimir ticket

 Responder Responder
Autor
Mensaje
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Tema: Abrir cajon monedero sin Imprimir ticket
    Enviado: 30/Agosto/2020 a las 11:11
Hace un tiempo pregunte algo parecido porque no me abria un cajon conectado a la impresora, era tan facil como ir a las propiedades de la impresora y configurarlo para que lo abriese antes o despues de imprimir, cortar papel etc.....Pero nunca habia trasteado con estos temas.

La cuestion es ahora abrir el cajon pero sin imprimir nada.....El cajon va conectado a la impresora USB mediante un RJ11.

Esta conectado al puerto virtual USB002

Hasta aqui he llegado y la duda la tengo en la linea Open".......que no se si se puede trabajar con un puerto usb

Private Sub Comando0_Click()
Open "USB002" For Output As #1 'Puerto donde está conectada la impresora
Print #1, Chr$(27); Chr$(112); Chr$(0); Chr$(64); Chr$(65); 'ABRE EL CAJON    
Close #1
   
   'http://www.mvp-access.com/foro/abrir-cajon-monedero_topic85219.html?KW=abrir+cajon
End Sub
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 30/Agosto/2020 a las 12:14
Si no recuerdo mal, lo que tienes que declarar es el nombre de la impresora.

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 16:45
Buenas  el codigo que me han suministrado es este 112;0;10;10
Con declarar la impresora te refieres a poner el nombre de la impresora?? estoy confuso con esto

Asi no abre...y poniendo el puerto USB002  tampoco

Private Sub Comando0_Click()
Open "80mm Series Printer" For Output As #1 'Puerto donde está conectada la impresora
Print #1, Chr$(112); Chr$(0); Chr$(10); Chr$(10); 'ABRE EL CAJON    
Close #1
End sub
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 17:45
De una antigua aplicación:
Open Impresora For Output As #1
Print #1, Chr$(27); "@"; Chr$(27); "C"; Chr$(72); Chr$(27); "M";

Donde Impresora = "\\192.168.49.150\EPSONTAL"

Siendo la dirección IP del equipo que tenía 'colgada' la impresora y el nombre con el que me aparecía la impresora al mirar el entorno de red.

En vez de la dirección IP también vale el nombre del equipo, algo así como:

           "\\PC_UNO\EPSONTAL"


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 18:01
Nada no hago carrera,es una impresora USB y hay creo que reside el problema.......
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 18:12
Lo he utilizado con impresoras en puertos USB ...
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 18:33
Algo me estoy perdiendo

Open "\\Casa-PC\80mm Series Printer" For Output As #1 'Puerto donde está conectada la impresora
Print #1, Chr$(112); Chr$(0); Chr$(10); Chr$(10); 'ABRE EL CAJON    
Close #1

error 75 error de acceso a ruta o archivo..... marca lo de negrita
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 20:05
Prueba a ponerle un nombre sin espacios a la impresora "ImpSeries", comprueba el FireWall, la configuración de red que te permita 'ver' la impresora, etc.

En tu pantalla del explorador de windows tienes que 'ver' Casa-PC y clicar en él, te tiene que salir la impresora.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 23:21
Vamos a ver, en el explorador le doy a red>Casa-PC  y en la barra de arriba sale \\Casa-PC
Hay me sale ver impresoras remotas y sale  \\CASA-PC\Impresoras

He puesto  \\CASA-PC\Impresoras\80mmSeriesPrinter  y \\CASA-PC\80mmSeriesPrinter, y nada no abre (ya le he quitado los espacion al nombre de la impresora)


Y he probado a compartir la impresora y ahora si sale en Casa-PC, le doy a abrir cajon, y me saca un poco de papel en la impresora, algo hemos conseguido!!!!!...en ese poco papel me imprime una p

Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 23:49
Esto 'furulaba' en una EPSON de papel continuo térmica, con el cajón enganchado a la impresora:

Open ImpresoraTickets For Output As #1
Print #1, Chr$(27); Chr$(112); Chr$(1); Chr$(255); Chr$(255);
Close #1


Posiblemente en el código que tu pones, le falta el ESC de inicio (Chr$(27)).


Editado por Mihura - 02/Septiembre/2020 a las 23:50
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 23:57
Ni me lo creo se ha abierto!!!!!ClapClapClap

Open "\\Casa-PC\80mmSeriesPrinter" For Output As #1 'Puerto donde está conectada la impresora TIENE QUE ESTAR COMPARTIDA!!!!!!   y puede ser USB
Print #1, Chr$(27); Chr$(112); Chr$(0); Chr$(10); Chr$(10); 'ABRE EL CAJON    
Close #1

Curioso lo de que tenga que estar compartida, no es lo que mas me guste, pero funciona.......

Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 03/Septiembre/2020 a las 00:17
Thumbs Up

Es que si no está compartida 'Ventanucos' no la puede encontrar por la ruta absoluta.

¿Cerramos?
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 03/Septiembre/2020 a las 00:35
Private Sub Comando156_Click()
On Error GoTo Err_Comando156_Click
'Saco nombre impresora ticket donde va conectado cajon
Dim varImpresora As String
varImpresora = DLookup("NombreImpresora", "tbImpresoras", "NumImpresora=1")

'Saco nombre del equipo
Dim wshNetwork As Object 'New wshNetwork
Set wshNetwork = CreateObject("WScript.Network")


'http://www.mvp-access.com/foro/topic85463_post514295.html#514295
'Puerto donde está conectada la impresora !!!!****+++TIENE QUE ESTAR COMPARTIDA LA IMPRESORA+++***!!!!!!   y puede ser USB etc..
         '\\NombreEquipo(pc)\NombreImpresora
'Open "\\DESKTOP-89JK4E1\"NombreImpresora" For Output As #1
Open "\\" & wshNetwork.ComputerName & "\" & varImpresora & "" For Output As #1
Print #1, Chr$(27); Chr$(112); Chr$(0); Chr$(10); Chr$(10); 'ABRE EL CAJON con este codigo para esta impresora en particular vivapos P83
Close #1

Exit_Comando156_Click:
    Exit Sub

Err_Comando156_Click:
    MsgBox Err.Description
    Resume Exit_Comando156_Click


Se puede cerrar!!

Saludos
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable