一个文件夹里面有100个表格，如何批量打印这100个表格的第一页，在线等

Question

如题所述

Answer 1

用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、运行上述宏。

Answer 2

这人太难了，批量打印到是简单，可以批量打印第一页就难了。追问

能不能实现呢？

本回答被网友采纳

Answer 3

试试这？

本回答被网友采纳

Answer 4

打印设置，页数1-1打多少份自己决定追问

这100个表格是分开的，设置份数有用么