如何在打印机上为TableLayout数据发出打印命令？

Question

尝试在打印机上获取TableLayout数据。
给定的数据只是excel格式标题的代码。

myfun <- function(){
  x <- rnorm(50, 25, 4)
  y <- rnorm(50, 25, 4)

  return(t.test(x, y)$p.value)
}


set.seed(1)
p_vals <- replicate(2500, myfun())