excel模拟“AfterPrint”事件打印后执行命令
发布时间：2023-02-18 23:53:58
标签：事件,代码,打印,数值,Excel函数
通常在Excel VBA中用“Workbook.BeforePrint”事件在打印前执行某项操作或命令，那么，要在打印后再执行某个命令该如何实现呢？Excel中并没有提供“AfterPrint”事件，用下面的VBA代码可以模拟“AfterPrint”事件。
假如在“Sheet1”表的A1单元格包含某个数值，需要在打印后让这个数值加“1”，方法如下：
按Alt+F11，打开VBA编辑器，在“工程”窗口中双击“ThisWorkBook”，在代码窗口中粘贴下列代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False ‘不触发BeforePrint事件
ActiveSheet.PrintOut
Sheet1.Range("a1").Value = Sheet1.Range("a1").Value + 1
Application.EnableEvents = True
Cancel = True ‘取消打印
End Sub
返回Excel工作表界面，在“工具栏”或“快速访问工具栏”中点“打印”按钮打印当前活动工作表后，Sheet1表A1单元格的数值就会自动加“1”。
0
投稿猜你喜欢
开机速度慢是很多电脑新手最大的烦恼，凭什么一样的电脑，自己的开机速度就是别人一倍，嗯其实就是开机启动项太多了，卡机又卡又慢，那么开机启动项怎- 日常生活中，我们经常会看到各种镜像的画面效果，看起来非常地炫酷，令人印象深刻。小伙伴们有没有想过一个问题，就是这种效果是怎么制作出来的呢，需
- 迅雷是一款非常不错的软件，可是使用的时候总是会出现各种各样的问题，比如手机迅雷beta无法验证应用，这是什么情况，该如何解决呢?只需要下载了
- Excel是一款很多用户都在使用表格文档软件，而我们在使用Excel的时候最怕的就是数据丢失了，这时候我们就可以使用Excel的自动备份功能
- 雷电模拟器是一款实用的安卓模拟软件，有很多小伙伴都喜欢使用，不过我们在使用雷电模拟器的时候难免会下载大量的文件及缓存各种数据，这极有可能会导
- 在使用win10系统的时候用户们都希望能够使用自己喜欢的图片来作为壁纸但是不知道怎么去换，今天就给你们带来了win10默认壁纸更换方法，快来
- 本人费 工夫费 精神 实现了一份WPS表格的 建造，怕“多手”的 共事把你表格改了，“ 摧残浪费 * ”你的作品， 碰到 如许的 状况 怎样办
- 最近有用户遇到注册表写入失败的问题，那么如何解决这个问题，下面小编就给大家带来Win7写入注册表失败的解决方法，一起来看看吧Win7注册表写
- 对于插入到wps文档里的表格，我们一般都需要对其数据进行处理，对于新手可能不知道如何处理，不用担心，下面就让小编告诉你 wps如何处理表格数
- wps文字中，有个统计字数的功能，使用该功能可以很快速地知道文档的字数，下面就让小编告诉大家wps文字怎样使用统计字数功能。wps文字使用统
- miui12的更新带来了很多的新功能和新样式以至于很多刚刚接触的小伙伴都不是很了解，那么以前的儿童空间该如何去打开呢？下面就为大家带来了详细
- 我们在使用电脑的时候经常会使用到打印机，而对于企业用户来说基本每天都在使用。如果我们自己想要购买打印机，应该购买哪个彩色喷墨打印机呢？下面小
- 一、excel2007数据透视表的位置如下图一样，找到“插入”选项卡，界面的左顶位置，就有“数据透视表”的功能。二、excel2007数据透
- 我们平时使用的输入法主要是用输入法和键盘两种方式输入一些常见的符号，但类似command（⌘）、option（⌥）、shift（⇧）等这些特
- 我们经常在使用电脑的时候会遇到电脑关机或登录系统，一直转圈，甚至还会卡死，那么遇到这样的问题该怎么解决呢？可以先尝试修复系统，最后不行就重装
- 有时候不知道怎么回事，电脑就检测不到cpu风扇转速了，这该怎么办？针对这个问题，小编编给大家分析分析电脑检测不到cpu风扇转速的原因并提供解
- 有时候我们工作外出的时间总是喜欢把电脑设置密码，之后因为密码被别人知道了，所以想要改一下密码，但是却发现提示“Windows不能更改密码”，
- Win10系统提示当OLE服务于对象服务器通讯时后者已停止是什么问题？有用户反映Win10系统一直提示当OLE服务于对象服务器通讯时后者已停
- 对于win10笔记本用户来说，我们在使用win10系统时，会在系统右下角托盘出看到win10电源图标，而一些用户在安装了某些软件后，却发现w
- word是一个文字排版软件，大家都在使用它完成长篇文档的处理，大部分会“头疼“的应用是格式的设置，习惯用格式刷完成，还有更快捷的方法，来试试
