[已解决]如何按要求自动逐个打印

ptcool88899

如何按打印自动按sheet2中数据逐个按sheet1表式填写打印！
请高手帮忙！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-30 17:28

………………

跳转到最佳答案楼层

Zipall

建议用word的邮件合并完成.

810126769

这样行不行？
自动逐个打印.rar (8.15 KB, 下载次数: 11)

2014-4-30 12:41 上传

点击文件名下载附件

dsmch

1. Sub Macro1()
   
2. Dim arr, i&
   
3. arr = Sheet2.Range("a1").CurrentRegion
   
4. Sheet1.Activate
   
5. For i = 2 To UBound(arr)
   
6.     [a2] = arr(i, 1)
   
7.     [c2] = arr(i, 2)
   
8.     [a4] = arr(i, 3)
   
9.     [c4] = arr(i, 4)
   
10.     [a6] = arr(i, 5)
    
11.     [a1:c7].PrintOut
    
12. Next
    
13. End Sub
    

复制代码

dsmch

………………

su45

楼上的应该可以满足了

ptcool88899

su45 发表于 2014-4-30 17:46
楼上的应该可以满足了

谢谢了！非常好用

su45

怎么谢咱呀？应谢5楼的，并给他个最佳！