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
再点击“宏”→“查看宏”,选择“宏名”下的“ReversePrint”并点击“执行”即可逆序打印。