excel2003如何实现逆序打印 急 在线等

我发现我问了一个愚蠢的问题,现在想明白了,打扰了
2024-12-24 16:34:55
推荐回答(1个)
回答1:

百度经验有
地址:http://jingyan.baidu.com/article/ab69b270e1516c2ca6189f43.html

宏代码实现法
提示:有些打印机不具备上述属性,但通过宏照样可以实现逆序打印功能。
打开该Excel文件,切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:ReversePrint,点击“确定”退出;
再点击“宏”→“查看宏”,选择“宏名”下的“ReversePrint”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码,然后保存关闭VBA编辑器:
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”并点击“执行”即可逆序打印。