Public Function IsPrinterInstalled() As Boolean

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

Private Sub Form_Load()
    MsgBox IsPrinterInstalled()
End Sub