Verificando se existe uma impressora instalada


Para verificar se existe uma impressora instalada é muito simples. Basta tentar retornar o nome do dispositivo no objeto Printer. Para isto criamos uma função que retornará False quando ocorrer um erro e True se o nome for obtido com sucesso. Retornando False temos que não há impressora instalada. 

O código 

Você pode inserir o código em um módulo ou no próprio formulário do projeto:

Public Function Impressora_Instalada() As Boolean

    On Error Resume Next
    
    Dim coringa As String
    coringa = Printer.DeviceName
    
    If Err.Number Then
        Impressora_Instalada = False
    Else
        Impressora_Instalada = True
    End If
    
End Function

Para fazer a verificação você pode usar a seguinte chamada para a função Impressora_Instalada:

Dim sinal as boolean 

sinal = Impressora_Instalada

If sinal Then  ' Aqui você pode dar o tratamento que quiser
   MsgBox " Existe uma impressora instalada !!! ", vbInformation
Else
   MsgBox " Não Existe uma impressora instalada !!! ", vbCritical
End If