我的天

昨天我打印了一大堆记账凭证面单。理论上我可以用邮件合并的那套表格去的，但实际上，我依然用的是单独一个Excel文件带控件的打印方式。需要打印的凭证面单有很多。估计超过10张。如果只是一两张，用控件的方式挺好，控件我设置为可以利用上下键，选上一张和下一张。也可以在输入函数的地方直接手动填写数字。只打印某一张或者某几张的情况下，这样做很方便。但当我要打印的东西是一大堆的时候显然这就不靠谱了，万一我手抖一抖，按两下，跳跃了呢？万一我按完，选择以后快速打印按钮按偏了呢？我根本不知道自己打印了多少张，中间有没有漏掉。邮件合并可以有选择范围，我可以选择某个范围内的记录，生成一个新的文件，然后直接打那个。如果我生成一堆工作表，我还得把它们删掉，新建一个文件，我还得删文件。与其这样，不如让机器去执行，我一边数据递增一边答应。人肉会按漏，但对机器来说太简单了。虽然这样不断提交打印，会比全部一起打印慢一点，但实际上，对我来说，一点影响都没有，因为我配套使用的是打印速度非常慢的针式打印机。如果我用的是激光打印机，而且还是非常快的那种，打印内容非常少的话。我这样的操作会影响打印速度，但现在，我做的做法非常简单且完美。之前我想不通，在Excel里要如何实现批量邮件合并的功。昨天，几乎可以说不费吹灰之力我就实现了，而我做的仅仅是写了一个几行字的宏而已，而具体某些步骤要怎么写代码可以先录制一个宏，看看参考一下。我最需要参考的是快速打印要怎么表达。因为VBA批量打印太方便，所以我通常都忘记先选择针式打印机。针式打印机不是我的默认打印机，所以按下批量打印以后，当我的激光打印机开始轰鸣，我才记起自己搞错了，所以我得迅雷不及掩耳地关掉激光打印机的电源，然后重新选择针式打印机。我觉得应该完善一下这个脚本，我应该把打印机也设置好，默认为针式打印机，这样我就不会有用错打印机的烦恼了。

这个脚本非常简单，前面的部分我已经写过了，用的是指定行打印的思路。首先输入两个数字，如果第2个数字留空，就默认等于第1个数字。如果第1个数字也空的话，打印不会执行。当第1个数字和第2个数字都靠谱了，会进入一个循环，步长为1。里面的语句超简单。说白了就是一个让某个单元格里的数字自增，然后快速打印该页面，因为这个页面我已经设置了打印区域，所以一切都很简单。之前我还在想，要做个控件，在Excel里面输入起始和结束页码，但实际上这根本没必要，直接弹窗挺方便。当然，就严谨性来说，我的脚本是有缺陷的，比如万一我输入的东西不是数字还是其他字符呢？万一我输入的数字不是整数，不是Excel表格里行数范围内的东西，而是一个浮点小数呢？我当然可以对输入进行严格的限制，限制它的范围，也限制它的数据类型，但这样显然就有点过了，毕竟这种打印完全是用来方便我自己的，没必要做到这么完美无缺。

现在，妈妈再也不用担心我会漏掉打印某些凭证面单了。