如何批量打印多个excel工作簿中的叫“sheet2”的工作表？

1. 如果是同样内容,直接打印多份即可

2. 如果有一个索引的,可以利用公式及VBA完成.

3. 以下是一段代码,在sheet 2设计好表格,清单存在sheet1内. 用公式将sheet2的各个栏位以B3栏位为索引填写.

    

4. 此时制作一个打印按键使用以下对应代码,输入要开始打印的索引号及要结束打印的索引号即可

    

Sub 单据()
Sheets("sheet1").Select
x = InputBox("请输入开始单号:")
y = InputBox("请输入结束单号:")
For i = x To y
Cells(3, 2) = i
ActiveWindow.SelectedSheets.PrintOut
Next i
End Sub

Everything is possible
工作簿全选enter批打开
假设有100个工作簿
在其中一共工作簿VBE下写入：
Sub printall()
on error resume next
dim i as integer
For i = 1 To 100
Sheets("sheet2.select").Select
Call printsheet2
ActiveWindow.Close
End Sub
第二步骤，
录制一个宏名叫printsheet2并公共化public
以供printall调用
完了运行printall
DONE!

Q这个群6977157，群共享里面有个合并程序（VBA写的），看能不能用得上。
希望对你有点帮助。
Θ

可以实现，要写代码，你给的奖励太少了，不想费事。

应该不可能