diff --git a/R/az_app.r b/R/az_app.r
index baf69e8..6b9d3be 100644
--- a/R/az_app.r
+++ b/R/az_app.r
@@ -160,6 +160,15 @@ public=list(
     delete_service_principal=function(confirm=TRUE)
     {
         self$get_service_principal()$delete(confirm=confirm)
+    },
+
+    print=function(...)
+    {
+        cat("<Graph registered app '", self$properties$displayName, "'>\n", sep="")
+        cat("  app id:", self$properties$appId, "\n")
+        cat("  directory id:", self$properties$id, "\n")
+        cat("  domain:", self$properties$publisherDomain, "\n")
+        invisible(self)
     }
 ),
 
diff --git a/R/az_group.R b/R/az_group.R
index ae9ea5c..632c4f2 100644
--- a/R/az_group.R
+++ b/R/az_group.R
@@ -70,6 +70,14 @@ public=list(
         op <- file.path("groups", self$properties$id)
         private$graph_op(op, http_verb="DELETE")
         invisible(NULL)
+    },
+    
+    print=function(...)
+    {
+        cat("<Graph group '", self$properties$displayName, "'>\n", sep="")
+        cat("  directory id:", self$properties$id, "\n")
+        cat("  description:", self$properties$description, "\n")
+        invisible(self)
     }
 ),
 
diff --git a/R/az_svc_principal.R b/R/az_svc_principal.R
index 2bc0db5..7626e1d 100644
--- a/R/az_svc_principal.R
+++ b/R/az_svc_principal.R
@@ -53,6 +53,15 @@ public=list(
         op <- file.path("servicePrincipals", self$properties$id)
         private$graph_op(op, http_verb="DELETE")
         invisible(NULL)
+    },
+
+    print=function(...)
+    {
+        cat("<Graph service principal '", self$properties$displayName, "'>\n", sep="")
+        cat("  app id:", self$properties$appId, "\n")
+        cat("  directory id:", self$properties$id, "\n")
+        cat("  app tenant:", self$properties$appOwnerOrganizationId, "\n")
+        invisible(self)
     }
 ),
 
diff --git a/R/az_user.R b/R/az_user.R
index 0dde7c8..5bbbe2d 100644
--- a/R/az_user.R
+++ b/R/az_user.R
@@ -109,6 +109,15 @@ public=list(
         op <- file.path("users", self$properties$id)
         private$graph_op(op, http_verb="DELETE")
         invisible(NULL)
+    },
+
+    print=function(...)
+    {
+        cat("<Graph user account '", self$properties$displayName, "'>\n", sep="")
+        cat("  principal name:", self$properties$userPrincipalName, "\n")
+        cat("  email:", self$properties$mail, "\n")
+        cat("  directory id:", self$properties$id, "\n")
+        invisible(self)
     }
 ),