今天分享一个VBA实现自动打印的功能录制宏+修改代码实现。

▍这篇文章你将学到以下知识点：

录制宏并修改代码；instr函数；循环打开工作簿的通用写法；选择文件夹对话框

我会认真写，希望看完文章后能在遇到类似问题的某个瞬间能想到：好像我在哪个公众号见过类似的例子和知识点。再回来翻看这篇攵章就行了

在知乎Excel有多厉害？这个回答中大V何明科老师介绍过这个功能。今天我们就来说一下实现的步骤

?我自己随便下载了几个表格当做案例附件。

■录制宏获取打印活动表格动作的代码。（没有真实打印机以pdf虚拟打印机作为例子）

■修改代码，经过修改和补充得到最终的代码（初学可以不修改录制宏得到的代码）：

■运行代码泡杯茶，等待自己打印完成

指定一字符串在另一字符串中最先出现的位置。

start可选参数为数值表达式，设置每次搜索的起点如果省略，将从第一个字符的位置开始如果指定了 compare 参数，则一定要有 start 参数
string1 必要参数。接受搜索的字符串表达式
string2 必要参数。被搜索的字符串表达式
Compare可选参数。指定字符串比较如果省略 compare，Option Compare 的设置将决定比较的类型（一般默认不写，特殊情况这里不叙述）

这里僦表示在工作表的名字中搜索“标准表”字符串，如果包含这个字符串他将会返回出现的位置。

如果要选择文件夹作为路径参照我嘚写就可以，是个通用模式