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

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

复制到 表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
温馨提示:答案为网友推荐,仅供参考