如何从电子表格输出数据，使其适合单个页面进行Web发布

Question

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

目前我在Excel中格式化报告并打印16个PDF（使用vba）。除了某些地区有足够的区域可以保证第二页（甚至是第三页）并且这看起来不整洁＆＃39;

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

我是否可以通过某种方式将信息输出到＆＃39;页面＆＃39;这足以保存所有信息

Answer 1

如果电子表格中的行具有标准高度，则可以很容易地确定标准页面上的适合数量，然后计算它应适合的页数并修改代码以使用.FitToPagesTall < / p>

e.g。

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

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

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