Sub 登録されている全てのプリンター名を取得する()

    Set システム = CreateObject("Shell.Application")
    
    For Each プリンタ名 In システム.Namespace(4).Items
    
        行 = 行 + 1
        
        Cells(行, "A") = プリンタ名.Name
    
    Next

End Sub