实现Excel 2007文档逆序打印

实现Excel 2007文档逆序打印(2) 　　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

　　再点击“宏”→“查看宏”，选择“宏名”下的“ReversePrint”并点击“执行”即可逆序打印。