印刷時に利用できるプリンタ名を取得し、イミディエイトウィンドウに表示します。Windows Scripting Host を使用していますので、OSがWindows98以降であること、もしくはInternet Explorer 5.01以降でないと動作しません。

Sub 利用できるプリンタ名を取得する2()
  Dim objPrinter As Object
  For Each objPrinter In CreateObject("Shell.Application").NameSpace(4).Items
    If objPrinter.Name <> "プリンタの追加" Then
      Debug.Print objPrinter.Name
    End If
  Next
End Sub

APIを使うより簡単です。OSやIEのバージョンが条件を満たしていればこの方がいいでしょう。