用宏來完成Excel2007工作表的逆序列印

3lian10發表於2016-10-15

  ①啟動excel表格,單擊檢視--宏--錄製宏。

用宏來完成Excel2007工作表的逆序列印 三聯

  ②宏名可以自己隨意定,但為了正規,一般都採用英文命名法,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

  ⑤最後,執行宏即可完成逆序列印了。程式設計十分好用,但是也難理解。不得不說從事程式設計師是一項苦逼的差事。

相關文章