横向在一页上打印多页

Printing multiple pages on one page in landscape orientation

我正在尝试使用 VBA 以 横向 方向在一个页面上以网格形式打印文档的四个横向页面:

ActiveDocument.PageSetup.Orientation = wdOrientationLandscape
ActiveDocument.PrintOut PrintZoomRow:=2, PrintZoomColumn:=2

然而,这是在 纵向 方向的页面上以网格形式打印四个横向的小页面,这使得它们太小且可用空间太多 space 在它们之间垂直。

我查看了 PrintOut 的文档,但没有找到任何关于方向的信息。 我尝试颠倒 PrintZoom 的顺序。 我也试过用PrintZoomPaperWidth和-Height手动配置打印纸的宽度和高度,导致小页被裁掉,打印出来的还是竖屏。

这在当前版本的 Office (2019) 中似乎是不可能的,无论是代码还是 UI。

作为解决方法,可以截取屏幕截图,将方向更改为纵向并将它们旋转 90° 后粘贴,或者在 Word 中使用旋转的文本框。
或者,可能更容易,创建一个 PDF 并使用能够以这种方式打印的 PDF reader,例如Adobe Reader.