| Pregunta: | 50230 - ERROR 8015 AL ABRIR CAJA REGISTRADORA |
| Autor: | Ruperto Marin |
| Estoy tratando de programar la apertura de una caja registradora conectada a una impresora. La impresora se conecta utilizando el puerto COM1. Utilizo el MSCOMM pero al tratar de abrirlo se me presenta el mensaje de error "8015" en tiempo de ejecucion. No se puede establecer el estado de comunicacion; puede que haya uno o mas parametros de comunicaciones no validos. A que se puede deber este error?. El codigo utilizado es el siguiente. MSComm1.CommPort = 1 MSComm1.Settings = "9600,N,8,1" MSComm1.InputLen = 0 MSComm1.PortOpen = True MSComm1.Output = "**" MSComm1.PortOpen = False El error se presenta cuando se trata de ejecutar la instruccion MSComm1.PortOpen = True Cualquier sugerencia o recomendacion agradeceria mucho. | |
| Respuesta: | Ruperto Marin |
| Despues de mucho probar pienso que el error se presenta debido a que el puerto que se esta tratando de abrir ya esta siendo utilizado por la impresora. Si utilizo otro puerto se puede trabajar tranquilamente. Si la caja registradora esta conectada directamente a la impresora se puede utilizar el siguiente codigo para abrir la caja: Dim iNroArch As Integer Dim sPuerto As String iNroArch = FreeFile sPuerto = Printer.Port Open sPuerto For Output As iNroArch Print #iNroArch, Chr$(27) & "p" & Chr$(0) & Chr$(25) & Chr$(250) Close iNroArch | |