Bom dia

Tenho a seguinte linha de codigo abaixo para abrir o scanner, quando desconecto o scanner ele faz o tratamento de erro ate ai tudo bem mas quando o scanner esta conectado ele nao faz nada
o nome do meu scanner e HP precisionscan Pro 3.1
Onde posso ter errado

On Error GoTo trata_scan_erro
ImgScan1.StartScan

Exit Sub

trata_scan_erro:

If Err.Number = 1116 Then
MsgBox "Controle do Scanner nao localizado.", vbInformation, "Digitaliza Imagens"
ElseIf Err.Number = 1101 Then
MsgBox "Falha no Scanner", vbInformation, "Digitaliza Imagens"
ElseIf Err.Number = 1117 Then
MsgBox "Sem fontes de dados TWAIN", vbInformation, "Digitaliza Imagens"
End If

 

Desde ja
Obrigado

Boa tarde

 

Ja encontrei o erro, ele esta em aplicativo que sera conflito com o caminho do scanner

como era um aplicativo que nao utilizava mais so exclui ele e funcionou

 

Obrigado pela atencao

 

fecha o topico...