如何在pdf上绘制一张大表（50列）？

Question

当我打印桌把时，只有一个小视口，如下所示。

我已经使用以下脚本将表格打印为pdf

library(gridExtra)
library(grid)

mySummaryOfMyData <- summary(someDataframe)
grid.newpage()
mytt1 <- ttheme_default(base_size = 4, base_colour = "blue")
psummary <- gridExtra::tableGrob(as.matrix(mySummaryOfMyData), theme=mytt1)
grid.draw(psummary)

如何在完整的PDF清单上显示未剪切的数据？