Question

如何用宏命令实现excel中文件批量打印？

比如excel中有两个表格，表格1中数据在A1，表格2是设计好的空表（要输出打印，打印为A4纸）。目标是表格2打印100份，每张表格中B1单元格的内容都等于A1（等于复印）
这个宏代码怎么写？

Answer 1

复制到 表2
Sub 打印()
For N = 1 To 100 '打印100份
[B1] = Sheets("表1").[A1] '每张表格中B1单元格的内容都等于 表1的 A1
Range("A1:I20").Select '打印区域，自己修改
Selection.PrintOut Copies:=1 '
Next
MsgBox "打印完毕"
End Sub