您好,欢迎来到 - 67学习网 - http://www.67xuexi.com !

用宏来完成Excel2007工作表的逆序打印

摘要: ①启动Excel表格,单击视图--宏--录制宏。②宏名可以自己随意定,但为了正规,一般都采用英文命名法,ReversePrint。③命名之后,返回主界面,按ALT+F8快捷键打开宏管理界面,选择ReversePrint,单击编辑按钮。④下面,我以我以往的编程经验,提供大家下面的代码,大家只需要将其替换原先的代码即可。Sub ReversePrint()Dim NumPages As Long, Page As LongNumPages = ExecuteExcel4Macro("GET.DOCUMENT(50)")For Page = NumPages To 1 Step -1ActiveSheet.PrintOut from:=Page, To:=PageNext PageEnd Sub⑤最后,执行宏即可完成逆序打印了。编程十分好用,但是也难理解。不得不说从事程序员是一项苦逼的差事。
用宏来完成Excel2007工作表的逆序打印,标签:Excel教程大全,http://www.67xuexi.com

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

用宏来完成Excel2007工作表的逆序打印 www.67xuexi.com

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

输入宏名

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

编辑宏

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

替换代码

  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

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


Tag:Excel教程Excel教程大全办公软件教程 - Excel教程

《用宏来完成Excel2007工作表的逆序打印》相关文章