无规则，不连续打印方法。

作者：绿色风分类：时间：2022-08-18 浏览：179

楼主无心为爱	Sub PrintOwnPage() Dim i As Integer i = ExecuteExcel4Macro("GET.DOCUMENT(50)") ActiveSheet.PrintOut From:=1, To:=3 ActiveSheet.PrintOut From:=5, To:=i End Sub 上边的代码只是不打印第四页，可根据的需要自己修改。
2楼无心为爱	奇偶页打印 Sub PrintOddPage() Dim j As Integer Dim i As Integer j = ExecuteExcel4Macro("GET.DOCUMENT(50)") For i = 1 To j Step 2 ActiveSheet.PrintOut from:=i, To:=i Next i End Sub 上述是奇数页打印，将第5行代码数值改为2，将实现偶数页打印。
3楼无心为爱	自动打印多工作表第一页 Sub printfirstpage() Dim sh As Integer Dim x As Integer Dim y As Integer Dim sy As Integer Dim syz As Integer x = InputBox("请输入起始工作表名字:") sy = InputBox("请输入结束工作表名字:") y = Sheets(x).Index syz = Sheets(sy).Index For sh = y To syz Sheets(sh).Select Sheets(sh).PrintOut from:=1, To:=1 Next sh End Sub
4楼 gvntw	双面打印可参考我这帖： http://www.exceltip.net/thread-1635-1-1.html
5楼 ghmyy	不错。。。。。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表