Abrir cajon monedero sin Imprimir ticket |
Responder |
Autor | |
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
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 |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 30/Agosto/2020 a las 12:14 |
Si no recuerdo mal, lo que tienes que declarar es el nombre de la impresora.
|
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
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
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 02/Septiembre/2020 a las 17:45 |
De una antigua aplicación:
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" |
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
Enviado: 02/Septiembre/2020 a las 18:01 |
Nada no hago carrera,es una impresora USB y hay creo que reside el problema.......
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 02/Septiembre/2020 a las 18:12 |
Lo he utilizado con impresoras en puertos USB ...
|
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
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
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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. |
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
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 |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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:
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 |
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
Enviado: 02/Septiembre/2020 a las 23:57 |
Ni me lo creo se ha abierto!!!!!
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....... |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 03/Septiembre/2020 a las 00:17 |
Es que si no está compartida 'Ventanucos' no la puede encontrar por la ruta absoluta. ¿Cerramos?
|
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
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
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |