Excel VBA についての質問です。

単純に Application.ActivePrinter をチェックすればよいのではないでしょうか？

もしだめなら、以下のような方法があります。

インストールされているプリンタドライバの数を取得するサンプルです。

Sub test()

    MsgBox "インストールされているプリンタの数: " & GetPrinterDriverCount()

End Sub

Function GetPrinterDriverCount() As Long
    
    Dim objWMIService As Object
    Dim colInstalledPrinters As Object

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set colInstalledPrinters = objWMIService.ExecQuery _
        ("Select * from Win32_PrinterDriver")
    
    GetPrinterDriverCount = colInstalledPrinters.Count
    
End Function

（参考）プリンタ ドライバの列挙

Application.ActivePrinterの値をチェックしてみてはいかがでしょうか。

プリンタドライバが全くインストールされていない状態でどんな値を返すのか確認できておりませんが、空文字列ではないでしょうか。

If Application.ActivePrinter = "" Then
    MsgBox ("No printer installed.")
    Exit Sub
Else
    ' 処理
End If

動作未確認ですので、外していたらスミマセン。

[参考URL]

• ActivePrinter プロパティ