如何设置仅打印活动单元格所在页？

作者：绿色风分类：时间：2022-08-17 浏览：96

楼主 biaotiger1	Q：如何设置仅打印活动单元格所在页？ A：ALT+F11打开VBA编辑器→“插入”→“模块”，在该模块中输入代码如下 Sub PrintCurrentPage() Dim M, N, I As Integer If Application.Intersect(ActiveSheet.UsedRange, ActiveCell) Is Nothing Then MsgBox "活动单元格在可打印区域外，程序终止": End 'ActiveWindow.View = xlPageBreakPreview For N = 1 To ActiveSheet.HPageBreaks.Count If ActiveSheet.HPageBreaks(N).Location.Row > ActiveCell.Row Then Exit For Next N For M = 1 To ActiveSheet.VPageBreaks.Count If ActiveSheet.VPageBreaks(M).Location.Column > ActiveCell.Column Then Exit For Next M I = (M - 1) * (ActiveSheet.HPageBreaks.Count + 1) + N ActiveSheet.PrintOut I, I ActiveWindow.View = xlNormalView End Sub 运行以上代码，则仅打印活动单元格所在页。打印活动单元格所在页.rar
2楼亡者天下	过来学习一下
3楼水吉果果	学习

免责声明

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

评论列表