关于批量数据单户打印和批量打印的方法

黑煞

我想用VBA做一个单户和批量打印功能，比如选择B6单元格，按“单户打印”，就会根据数据汇总的相关内容，打印一户一表，然后L列体现打印次数，因为数据量达到上万条，所以要加一个打印次数，这是第一个。第二个就是“批量打印”，可以选择打印10条或者20条那种。只是本人技术有限，故此请高手们给予帮助，谢谢了。


注：（数据汇总里的一条数据就是一户）

Yalishanda30

描述不够清晰，什么叫一户？

黑煞

Yalishanda30 发表于 2023-3-20 13:12
描述不够清晰，什么叫一户？

应该叫一条数据。

半百

不知道为什么附件发不上来，先参考图片吧

黑煞

半百 发表于 2023-3-20 13:30
不知道为什么附件发不上来，先参考图片吧

没关系，我一会儿试试，感谢，如有不懂还得劳烦您。

Yalishanda30

黑煞 发表于 2023-3-20 13:21
应该叫一条数据。

单条打印供参考

黑煞

半百 发表于 2023-3-20 13:30
不知道为什么附件发不上来，先参考图片吧

单户打印测试成功，第二个按钮测试出现这个提示。

就是这段：    Rng.Offset(0, 10) = Rng.0ffset(0, 10) + 1
麻烦有时间看一下。

黑煞

Yalishanda30 发表于 2023-3-20 13:56
单条打印供参考

感谢帮助，一会儿我测试一下。

半百

黑煞 发表于 2023-3-20 14:03
单户打印测试成功，第二个按钮测试出现这个提示。

就是这段：    Rng.Offset(0, 10) = Rng.0ffset(0,  ...

不知道啥情况，换成    Cells(i, 12) = Cells(i, 12) + 1 试试。

黑煞

半百 发表于 2023-3-20 14:19
不知道啥情况，换成    Cells(i, 12) = Cells(i, 12) + 1 试试。

不行呀~还得麻烦看看。