Visual Basic - ¿COMO COMPROBAR Q UN PUERTO ESTA ACTIVO?

Hola, mi caso es el siguiente: tengo este codigo para abrir un cajón del dinero :
Open "LPT1:" For Output As 1
Print #1, Chr(27) & Chr(112) & Chr(48);
Close 1
la aplicacion se va a instalar en diferentes ordenadores, y no todos tienen impresora, que es donde se conecta el cajon de dinero, como puedo comprobar si efectivamente hay alguna impresora instalada, es que si no hay cajon de dinero el programa se me queda bloqueado y tengo que "finalizar tarea", no se si me he explicado bien, en fin, solo agradecer vuestra atencion. Un saludo

Puedes controlar el error utilizando la instrucción On error Goto ... y a continuación tienes dos posibilidades:

1.- On error goto <nombre de etiqueta> y en la zona de etiqueta procesar la informacion, por ejemplo:

On error goto errores
.....
<lineas de codigo del proceso>
.....
errores:
msgbox "Error"

2.- O esta segunda opcion que creo te puede interesar seria la siguiente:
On error Resume next, de esta forma si se produce un error esta instruccion se la salta y pasa a la siguiete instruccion.

Espero haberte solucionado tu problema.

Saludos.