如何使用宏完成Excel2007工作表的反向打印功能

出版一本书或者印刷一本小说的时候,如果你没有设置逆序印刷,那么打出来的纸张就需要重新排列,因为第一页放在最下面,如果页数太多,你显然没有时间一页一页地改变顺序。下面教大学用宏解决Excel表格的反向打印。

启动Excel表格,单击视图–宏–录制宏。

如何使用宏完成Excel2007工作表的反向打印功能

宏名可以自己随意定,但为了正规,一般都采用英文命名法,ReversePrint。

如何使用宏完成Excel2007工作表的反向打印功能

命名之后,返回主界面,按ALT+F8快捷键打开宏管理界面,选择ReversePrint,单击编辑按钮。

如何使用宏完成Excel2007工作表的反向打印功能

下面,我以我以往的编程经验,提供大家下面的代码,大家只需要将其替换原先的代码即可。

如何使用宏完成Excel2007工作表的反向打印功能

Sub ReversePrint()

Dim NumPages As Long, Page As Long

NumPages = ExecuteExcel4Macro(“GET.DOCUMENT(50)”)

For Page = NumPages To 1 Step -1

ActiveSheet.PrintOut from:=Page, To:=Page

Next Page

End Sub

最后,执行宏即可完成逆序打印了。编程十分好用,但是也难理解。不得不说从事程序员是一项苦逼的差事。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 86345@qq.com 举报,一经查实,本站将立刻删除。
(0)
上一篇 2022-04-15 03:10:02
下一篇 2022-04-15 03:20:01

猜你喜欢

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注