Visual Basic - PROBLEMA CON EL CAJON DEL DINERO...

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

Dim X As Printer
For Each X In Printers
if Set Printer = X then
(aquí poner : 'Open....etc'
Next

Prueba con el Código anterior.
Un saludo