VBA 批量打印多工作簿的指定工作表

要解决的问题：

同一个文件夹有多个工作簿，工作簿中有相同格式的多个sheet表，其中有两个固定的SHEET需要打印（所有EXCEL工作簿表格中两个固定SHEET的名字相同）。每次打开这么多文档，再将表格一个个打印很繁琐，有什么快捷的方法可以直接打印这个文件夹下所有EXCEL表中这两个固定的SHEET表内容？

解决思路：

1、将要打印的工作簿放在同一个文件夹内，如：D:\mywbooks\

2、使用dir在文件夹中遍历文件，然后打开工作簿，再打印指定的工作表，然后关闭文件。

EXCEL VBA代码如下：

1. Sub myprint()
2.     Dim file$, folder$, wb As Workbook
3.     folder = "D:\mywbooks\"
4.     file = Dir(folder & "*.xlsx") ’如有其他后辍，可以使用Dir(folder & "*.xls*")
5.     Do While file <> ""
6.         Set wb = GetObject(folder & file)
7.       &n