Abrir cajon monedero sin Imprimir ticket
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85463
Fecha de impresión: 26/Marzo/2026 a las 15:42
Tema: Abrir cajon monedero sin Imprimir ticket
Publicado por: rokoko
Asunto: Abrir cajon monedero sin Imprimir ticket
Fecha de publicación: 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 |
Respuestas:
Publicado por: Mihura
Fecha de publicación: 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. http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones http://www.tecsys.es" rel="nofollow - Tecsys.es |
Publicado por: rokoko
Fecha de publicación: 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
|
Publicado por: Mihura
Fecha de publicación: 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" ------------- Jesús Mansilla Castells. Saludos desde Móstoles. http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones http://www.tecsys.es" rel="nofollow - Tecsys.es |
Publicado por: rokoko
Fecha de publicación: 02/Septiembre/2020 a las 18:01
|
Nada no hago carrera,es una impresora USB y hay creo que reside el problema.......
|
Publicado por: Mihura
Fecha de publicación: 02/Septiembre/2020 a las 18:12
|
Lo he utilizado con impresoras en puertos USB ... ------------- Jesús Mansilla Castells. Saludos desde Móstoles. http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones http://www.tecsys.es" rel="nofollow - Tecsys.es |
Publicado por: rokoko
Fecha de publicación: 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
|
Publicado por: Mihura
Fecha de publicación: 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. http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones http://www.tecsys.es" rel="nofollow - Tecsys.es |
Publicado por: rokoko
Fecha de publicación: 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 |
Publicado por: Mihura
Fecha de publicación: 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)).
------------- Jesús Mansilla Castells. Saludos desde Móstoles. http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones http://www.tecsys.es" rel="nofollow - Tecsys.es |
Publicado por: rokoko
Fecha de publicación: 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....... |
Publicado por: Mihura
Fecha de publicación: 03/Septiembre/2020 a las 00:17
Es que si no está compartida 'Ventanucos' no la puede encontrar por la ruta absoluta. ¿Cerramos? ------------- Jesús Mansilla Castells. Saludos desde Móstoles. http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones http://www.tecsys.es" rel="nofollow - Tecsys.es |
Publicado por: rokoko
Fecha de publicación: 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
|