Excel 如何从电子表格中输出数据，使其适合web发布的单个页面

我有一个为所有地区生成标准报告的报告程序。共有16个区域，每个区域包含许多区域（通常在60到250之间）。我想以一种便于发布到web的方式格式化此报告

目前，我在Excel中格式化报告并打印16份PDF（使用vba）。这一切正常，除了一些地区有足够的面积，以保证第二（甚至第三）页，这看起来“不整洁”

如果我为PDF打印机定义了一张特殊的纸张，那么带有少量区域的区域在报告底部会有大量空白

---

是否有某种方法可以将信息输出到一个“页面”，该页面的长度刚好足以容纳所有信息

如果电子表格中的行具有标准高度，那么很容易计算出一个标准页面上适合的行数，然后计算它应该适合的页面数，并修改代码以使用

。FitToPagesTall

e、 g

如果行的高度可变，请编写一些代码来测量累计高度，然后计算页数

---

最后，由于所需的打印区域必须动态更改，因此您可能需要添加一些代码以使打印区域适合活动数据。

Hmmmm。我想，这不是我想要的。如果我理解正确，FitToPagesTall=3将把报告放在3页上，而我希望它显示为1页，实际上是3页长。然后它收缩文本，使其适合标准A4页，因此将有非常小的文本。我想把它放在一个不止一页A4的页面上，正好有一页A4的宽度。这就是它能把它放在一个页面上的方法。您可以压缩边距，如果方向为横向，则将其更改为纵向。除此之外，您还可以将其分成两页，并将第1页和第2页并排打印。我看不出如何在Excel中使用“另存为…”格式：=PDF；您可能需要使用第三方PDF制造商，如PrimoPDF，我知道它可以做到这一点。谢谢。我去看看Primopf

With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 3
End With