Vba：打印一个Excel sheet到多个pdf页面

Question

我会尽量保持简短。我正在做一个 Excel 项目，我必须在最后打印一个 sheet，问题是打印的 PDF 太小了，所以我在不同的论坛上查找了它并且我发现我必须转动 .FitToPagesTall = 0 才能使 excel 作品 sheet 不适合一个 pdf 页面。我现在正在努力解决的问题是，即使 pdf 页面比以前更大，它仍然很小并且很难阅读。我的想法是在 pdf 页面中打印每 30 行（例如）（Page1 --> Range("A1:E30"), Page2 --> Range("A31:E60")..等等，你明白了)

请问我该怎么做？

提前致谢！

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

即使我将 .PrintArea 设置为 A:D，它仍然会给出相同的结果。换句话说我的请求：我正在寻找一种在多页中打印不同范围的方法。

感谢大家抽出宝贵的时间给我一个机会。

Answer 1

尝试调整方向并水平调整数据，如下所示：

With ActiveSheet.PageSetup
    .PrintTitleRows = ":" '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

Vba：打印一个Excel sheet到多个pdf页面

Vba: Print an Excel sheet to multiple pdf pages

pdf

excel

vba

pdf-generation