用VBA写个程序配合处理吧：
1、先在CMD命令状态中进入该 文件夹，用dir >aaa.txt命令，将文件夹内的文件名列到aaa.txt中，
2、用EXCEL打开aaa.txt文件，分列，将文件名分拆开，删除不要的内容，将纯文件名放在A1开始的A列中，
3、按键盘组合键“Alt+F11”或切换至“开发工具”功能区并点击“Visual Basic”按钮进入VBA环境。
4、在VBA环境下，右击“Microsoft Excel对象”，从弹出的菜单中选择“插入”->“模块”项。
5、在打开的模块窗口中，输入以下代码：
Sub 宏1()
For i = 1 To 100 '从1到100
Workbooks.Open Filename:="E:\File\" & Cells(i, 1) '选择打开指定目录E:\FILE\目录的A列上单元格的文件
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False '打印首页
ActiveWorkbook.Close '关闭这文件
Windows("901.xlsm").Activate '重新选择这个有宏和文件名的文件
Next '下一循环
End Sub
文档另存为901.xlsm
6、运行上述宏。
这人太难了，批量打印到是简单，可以批量打印第一页就难了。
试试这？
打印设置，页数1-1打多少份自己决定
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024