diff --git a/DESCRIPTION b/DESCRIPTION
index 5c72cdb23..22405f45a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -35,6 +35,7 @@ Imports:
     DT (>= 0.13),
     forcats (>= 1.0.0),
     grid,
+    rlang (>= 1.0.0),
     scales,
     shinyjs,
     shinyTree (>= 0.2.8),
@@ -69,7 +70,6 @@ Suggests:
     MASS,
     nestcolor (>= 0.1.0),
     pkgload,
-    rlang (>= 1.0.0),
     rmarkdown (>= 2.23),
     rtables (>= 0.6.8),
     rvest,
diff --git a/NEWS.md b/NEWS.md
index 029e1412b..b128e3ded 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -5,6 +5,8 @@
 ### Enhancements
 * Added `teal.logger` functionality for logging changes in shiny inputs in all modules.
 
+* Users can now provide their own card functions to specify the content that modules send to reports.
+
 # teal.modules.general 0.3.0
 
 ### Enhancements
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
index 390ab4c88..1b6f07abe 100644
--- a/R/tm_g_distribution.R
+++ b/R/tm_g_distribution.R
@@ -39,7 +39,7 @@
 #'
 #' app <- init(
 #'   data = data,
-#'   modules = list(
+#'   modules = modules(
 #'     tm_g_distribution(
 #'       dist_var = data_extract_spec(
 #'         dataname = "iris",
@@ -118,7 +118,8 @@ tm_g_distribution <- function(label = "Distribution Module",
                               plot_height = c(600, 200, 2000),
                               plot_width = NULL,
                               pre_output = NULL,
-                              post_output = NULL) {
+                              post_output = NULL,
+                              card_function) {
   message("Initializing tm_g_distribution")
 
   # Requires Suggested packages
@@ -169,6 +170,12 @@ tm_g_distribution <- function(label = "Distribution Module",
 
   checkmate::assert_multi_class(pre_output, c("shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE)
   checkmate::assert_multi_class(post_output, c("shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE)
+
+  if (missing(card_function)) {
+    card_function <- tm_g_distribution_card_function
+  } else {
+    checkmate::assert_function(card_function)
+  }
   # End of assertions
 
   # Make UI args
@@ -185,7 +192,7 @@ tm_g_distribution <- function(label = "Distribution Module",
     server = srv_distribution,
     server_args = c(
       data_extract_list,
-      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)
+      list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args, card_function = card_function) # nolint: line_length.
     ),
     ui = ui_distribution,
     ui_args = args,
@@ -350,7 +357,8 @@ srv_distribution <- function(id,
                              group_var,
                              plot_height,
                              plot_width,
-                             ggplot2_args) {
+                             ggplot2_args,
+                             card_function) {
   with_reporter <- !missing(reporter) && inherits(reporter, "Reporter")
   with_filter <- !missing(filter_panel_api) && inherits(filter_panel_api, "FilterPanelAPI")
   checkmate::assert_class(data, "reactive")
@@ -1276,37 +1284,42 @@ srv_distribution <- function(id,
 
     ### REPORTER
     if (with_reporter) {
-      card_fun <- function(comment, label) {
-        card <- teal::report_card_template(
-          title = "Distribution Plot",
-          label = label,
-          with_filter = with_filter,
-          filter_panel_api = filter_panel_api
-        )
-        card$append_text("Plot", "header3")
-        if (input$tabs == "Histogram") {
-          card$append_plot(dist_r(), dim = pws1$dim())
-        } else if (input$tabs == "QQplot") {
-          card$append_plot(qq_r(), dim = pws2$dim())
-        }
-        card$append_text("Statistics table", "header3")
-
-        card$append_table(common_q()[["summary_table"]])
-        tests_error <- tryCatch(expr = tests_r(), error = function(e) "error")
-        if (inherits(tests_error, "data.frame")) {
-          card$append_text("Tests table", "header3")
-          card$append_table(tests_r())
-        }
-
-        if (!comment == "") {
-          card$append_text("Comment", "header3")
-          card$append_text(comment)
-        }
-        card$append_src(teal.code::get_code(output_q()))
-        card
-      }
-      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
+      env <- environment()
+      env$with_filter <- with_filter
+      env$filter_panel_api <- filter_panel_api
+      teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_function, env = env)
     }
     ###
   })
 }
+
+#' @keywords internal
+tm_g_distribution_card_function <- function(comment, label, env) { # nolint: object_length.
+  card <- teal::report_card_template(
+    title = "Distribution Plot",
+    label = label,
+    with_filter = env$with_filter,
+    filter_panel_api = env$filter_panel_api
+  )
+  card$append_text("Plot", "header3")
+  if (env$input$tabs == "Histogram") {
+    card$append_plot(env$dist_r(), dim = env$pws1$dim())
+  } else if (env$input$tabs == "QQplot") {
+    card$append_plot(env$qq_r(), dim = env$pws2$dim())
+  }
+  card$append_text("Statistics table", "header3")
+
+  card$append_table(env$common_q()[["summary_table"]])
+  tests_error <- tryCatch(expr = env$tests_r(), error = function(e) "error")
+  if (inherits(tests_error, "data.frame")) {
+    card$append_text("Tests table", "header3")
+    card$append_table(env$tests_r())
+  }
+
+  if (!comment == "") {
+    card$append_text("Comment", "header3")
+    card$append_text(comment)
+  }
+  card$append_src(teal.code::get_code(env$output_q()))
+  card
+}
diff --git a/R/utils.R b/R/utils.R
index 5876abcab..43a202951 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -35,6 +35,10 @@
 #' - When the length of `size` is three: the plot points size are dynamically adjusted based on
 #' vector of `value`, `min`, and `max`.
 #'
+#' @param card_function (`function`) optional, custom function to create a report card.
+#' See [this vignette](https://insightsengineering.github.io/teal/latest-tag/articles/adding-support-for-reporting.html)
+#' for details.
+#'
 #' @return Object of class `teal_module` to be used in `teal` applications.
 #'
 #' @name shared_params
diff --git a/man/shared_params.Rd b/man/shared_params.Rd
index 1ea6b7094..8009e40af 100644
--- a/man/shared_params.Rd
+++ b/man/shared_params.Rd
@@ -47,6 +47,10 @@ vector of \code{value}, \code{min}, and \code{max}.
 \item When the length of \code{size} is three: the plot points size are dynamically adjusted based on
 vector of \code{value}, \code{min}, and \code{max}.
 }}
+
+\item{card_function}{(\code{function}) optional, custom function to create a report card.
+See \href{https://insightsengineering.github.io/teal/latest-tag/articles/adding-support-for-reporting.html}{this vignette}
+for details.}
 }
 \value{
 Object of class \code{teal_module} to be used in \code{teal} applications.
diff --git a/man/tm_g_distribution.Rd b/man/tm_g_distribution.Rd
index 033161a0c..4bf929234 100644
--- a/man/tm_g_distribution.Rd
+++ b/man/tm_g_distribution.Rd
@@ -16,7 +16,8 @@ tm_g_distribution(
   plot_height = c(600, 200, 2000),
   plot_width = NULL,
   pre_output = NULL,
-  post_output = NULL
+  post_output = NULL,
+  card_function
 )
 }
 \arguments{
@@ -59,11 +60,15 @@ Defaults to \code{c(30L, 1L, 100L)}.
 \item{plot_width}{(\code{numeric}) optional, specifies the plot width as a three-element vector of
 \code{value}, \code{min}, and \code{max} for a slider encoding the plot width.}
 
-\item{pre_output}{(\code{shiny.tag}) optional,\cr
+\item{pre_output}{(\code{shiny.tag}, optional)\cr
 with text placed before the output to put the output into context. For example a title.}
 
-\item{post_output}{(\code{shiny.tag}) optional, with text placed after the output to put the output
+\item{post_output}{(\code{shiny.tag}, optional) with text placed after the output to put the output
 into context. For example the \code{\link[shiny:helpText]{shiny::helpText()}} elements are useful.}
+
+\item{card_function}{(\code{function}) optional, custom function to create a report card.
+See \href{https://insightsengineering.github.io/teal/latest-tag/articles/adding-support-for-reporting.html}{this vignette}
+for details.}
 }
 \value{
 Object of class \code{teal_module} to be used in \code{teal} applications.
@@ -85,7 +90,7 @@ datanames(data) <- "iris"
 
 app <- init(
   data = data,
-  modules = list(
+  modules = modules(
     tm_g_distribution(
       dist_var = data_extract_spec(
         dataname = "iris",