PROBLEMAS COM PORTA LPTN - STATUS

LIZANDER 24/09/2014 14:47:30
#441482

Estou tendo um problema ao usar uma impressão direta em LPT1.
Simplesmente não consigo verificar se a impressora está ligada ou não... Já vi soluções aqui, baixei, porém, em Windows 7 (x64) não estão funcionando...
Eu, pra ser sincero, não sei se o problema é em minha máquina, pois não testei em outras, mas o simples código abaixo trava o programa.

Ao acionar o On Error GoTo, ao dar o erro na linha da impressão , o mesmo deveria ser direcionado ao Falha:, onde retornaria False.
Por algum motivo que não sei ou não estou enxergando, o programa trava na linha Close (mas a que está abaixo da linha de Impressão, e não na que está no [Ô]Falha[Ô]... então o sistema trava e só libera se eu ligar a impressora, retornando sempre True...

Public Function TestaPrinter(ctPorta As String) As Boolean
PrnTest = FreeFile
Open ctPorta For Output As PrnTest
On Error GoTo Falha
Print #PrnTest, [Ô][Ô]
Close #PrnTest
TestaPrinter = True
Exit Function
Falha:
Close #PrnTest
TestaPrinter = False
End Function

Sei que existem algumas soluções já postadas aqui no fórum, mas nenhuma delas funciona para o windows 7 x64, o que me fez tentar fazer um teste que daria erro caso a impressora estivesse desligada ou o cabo desconectado e controlaria esse erro.

Alguém tem alguma dica de onde estou pecando?