EXCEL逐份打印当前工作表的奇数页，求修改。

japhler · 发表于 2024-12-25 20:49

用Sheet1，第一行就报错了。

lss001 · 发表于 2024-12-25 21:14

本帖最后由 lss001 于 2024-12-25 21:18 编辑

japhler 发表于 2024-12-25 20:49
用Sheet1，第一行就报错了。

可能是office版本问题
2楼代码使用的是office365测试
把第一行注释掉试试

japhler · 发表于 2024-12-25 21:24

和注释没关系，我把SHEET1改成ActiveSheet后，到了 arr(i) = ActiveSheet.HPageBreaks(i).Location.Address这行又出错了。

lss001 · 发表于 2024-12-25 21:38

本帖最后由 lss001 于 2024-12-31 19:52 编辑

请参考2楼附件

japhler · 发表于 2024-12-25 23:37

还是不行

japhler · 发表于 2024-12-25 23:38

还是不行

lss001 · 发表于 2024-12-26 08:00

本帖最后由 lss001 于 2024-12-31 19:53 编辑

请参考一下2楼附件代码

japhler · 发表于 2024-12-26 12:03

附件已上传

japhler · 发表于 2024-12-27 17:28

本帖最后由 japhler 于 2024-12-27 17:41 编辑

lss001 发表于 2024-12-26 08:00
参考一下附件

大师，这个很好！

我附件中页数是多左到右这样的，这个可以隐藏列。

但如果这个页数是这样的呢，

还有要怎样才能偶数页逆序打印？

lss001 · 发表于 2024-12-27 19:56

japhler 发表于 2024-12-27 17:28
大师，这个很好！

请上传要打印的附件

用户名		自动登录	找回密码
密码			免费注册