如何自动设置分页符，无论表格如何更改，都让除未页处每页内容自动填满A4纸

lss001

510621666 发表于 2024-7-5 08:01

没有附件，楼上代码只是例子，提示错误也是可能的？

quqiyuan

510621666 发表于 2024-7-5 08:02
具体怎么设置

你发个附件上来，具体要求说明，这样才好帮你，否则问来问去解决不了问题。

510621666

quqiyuan 发表于 2024-7-5 09:04
你发个附件上来，具体要求说明，这样才好帮你，否则问来问去解决不了问题。

这样说吧A1:W1105打印区域，其中前3行为打印区域，横打一般是20页A4纸，有时需要隐藏部分行和列打，但这样就有空白打不满纸，依靠手工调分页很麻烦，我就是想设置一下，隐藏行和列后，自动调整分页符，使除了最后一张纸外，其余的纸张都是满的。

quqiyuan

510621666 发表于 2024-7-5 09:29
这样说吧A1:W1105打印区域，其中前3行为打印区域，横打一般是20页A4纸，有时需要隐藏部分行和列打，但这 ...

所以重新设置printarea 就可以了，vba 定位最后一行有数据的。

510621666

如何设置printarea

quqiyuan

510621666 发表于 2024-7-5 10:23
如何设置printarea

页面设置里有打印区域，你隐藏部分行后，设置它一下，然后打印预览一下，看看是否满足你需要，vba 设置这个道理是一样的。

510621666

quqiyuan 发表于 2024-7-5 10:52
页面设置里有打印区域，你隐藏部分行后，设置它一下，然后打印预览一下，看看是否满足你需要，vba 设置这 ...

这只能重新设置打印区域，还是不能自动分页，需要手工去调

quqiyuan

510621666 发表于 2024-7-5 11:01
这只能重新设置打印区域，还是不能自动分页，需要手工去调

用某个网友的文件给你做了个例子，不知道是否你的需要，仅供参考。。。

510621666

quqiyuan 发表于 2024-7-5 12:03
用某个网友的文件给你做了个例子，不知道是否你的需要，仅供参考。。。

请把代码发给我试一下好吗？

510621666

quqiyuan 发表于 2024-7-5 12:03
用某个网友的文件给你做了个例子，不知道是否你的需要，仅供参考。。。

请把代码发给我试一下好吗