Vba：将Excel工作表打印到多个pdf页面

Question

我会尽量保持这一点。我正在研究一个Excel项目，我必须在最后打印一张纸，问题是打印的PDF太小了，所以我在不同的论坛中查找它，我发现我不得不转.FitToPagesTall = 0为了使excel工作表不适合一个pdf页面。我现在正在努力解决的问题是，即使pdf页面比以前更大，它仍然很小，而且难以阅读。我的想法是在pdf页面中打印每30行（例如）（Page1 - ＆gt; Range（“A1：E30”），Page2 - ＆gt; Range（“A31：E60”）...等等，你得到了这个想法）

我有什么想法可以做到吗？

提前致谢！

更新＃1：这是我的数据范围的一部分的屏幕截图

即使我将.PrintArea设置为A：D，它仍会给出相同的结果。重新定义我的请求：我正在寻找一种在多个页面中打印不同范围的方法。

感谢大家给我一些时间。

Answer 1

尝试调整Orientation并水平拟合数据，如下所示：

With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$1" 'to repeat your header on each page 
    .CenterHorizontally = True
    .CenterVertically = True
    .Orientation = xlLandscape ' or xlPortrait
    .Zoom = False
    .FitToPagesWide = 1 'fit to wide only
    .FitToPagesTall = 0
End With