Estou com problemas na hora de selecionar a impressora. Usei essa rotina várias vezes e nunca tive problemas quando usava impressora sem ser USB. Agora tenho apenas uma impressora instalada e é USB. Quando vou usar a rotina e seleciono a impressora o erro "482" é gerado. Observo que é como se não tivesse encontrado nenhuma impressora. Alguém sabe como resolver isso?

        comIMPRE.ShowPrinter
        For Each impSELEC In Printers
            If impSELEC.hDC = comIMPRE.hDC Then
                Set Printer = impSELEC
            End If
        Next