用VBA处理表格排版打印使每个表格不跨页，每页也都充满

geekjin

目前想解决的问题其实就是，使文档中的多个表格能自动组合，将第个页面都充满（页面内空余的行不太多就可以）又不使其中的表格有跨页排版现象。
都能像附件中第一页的样子就符合要求了。

shenghua8

这么整齐的数据表，为什么不用 Excel 处理？

geekjin

谢谢你的关注，希望能给个解决思路，在EXCEL中如何处理呢？
就是从EXCEL中导出来的。EXCEL固然能处理行数问题（但怎么来判断若干个表格总行数的组合呢？），但是列数不同的表格想打印在一张纸上又让他们两端一样齐也很难办到的。

shenghua8

判断第1列上一个单元格的值，如果是“制表”两个字，就插入分页符。

geekjin

shenghua8 发表于 2015-9-11 16:50
判断第1列上一个单元格的值，如果是“制表”两个字，就插入分页符。

你的意思是将每个表格都打印成单独的一页纸上吗？
这不是我想要的结果，我是想让每页内容都尽可能的充满整个页面又不使其中的表格有跨页显示的。
在你的想法上如果对每个跨页显示的表格前加入一个分布符的话也不能解决这个问题，如果一个表跨页显示在第二页上的只有一二行，将它分页后，其前一页的空白太多了。
个人感觉是不太好判断表格组合，如何让几个行数加起来很接近一个页面总行数的几个表格放在一页上才是关键。

shenghua8

那就在前一层再加个判断，如果大于多少行。

duquancai

geekjin 发表于 2015-9-11 16:03
谢谢你的关注，希望能给个解决思路，在EXCEL中如何处理呢？
就是从EXCEL中导出来的。EXCEL固然能处理行数 ...

本来是excel中的源数据，最好是在excel中调用数据源用数据透视表结合SQL语句来处理这个问题。

geekjin

duquancai 发表于 2015-9-11 18:48
本来是excel中的源数据，最好是在excel中调用数据源用数据透视表结合SQL语句来处理这个问题。

谢谢关注，有时间时，可否给个例子。有点找不到路子，数据透视表不是太会。
昨天浏览器有问题，没有及时回复。