求助怎么批量打印

qinzhi520 · 发表于 2020-3-1 16:07

请问怎样自动“录入”表2中的所有数据？加个打印按钮。

网海遨游 · 发表于 2020-3-1 16:24

是每张只纸上,只打印一个单号吗?

qinzhi520 · 发表于 2020-3-1 16:34

网海遨游发表于 2020-3-1 16:24
是每张只纸上,只打印一个单号吗?

名称，税号，安装单号都要

网海遨游 · 发表于 2020-3-1 17:04

本帖最后由网海遨游于 2020-3-1 17:06 编辑

是不是要这样的?

青春の火焰 · 发表于 2020-3-1 17:12

Sub tt()
Sheet2.Activate
r = Sheets("sheet2").Cells(Rows.Count, "a").End(3).Row
Set sh = Sheets("通知单")
For i = 2 To r
      Sheet1.Cells(i, 1).Copy sh.[b2]
      Sheet1.Cells(i, 2).Copy sh.[b3]
      Sheet1.Cells(i, 3).Copy sh.[c2]
      ActiveSheet.PrintOut
      Range("b:c").ClearContents
Next
End Sub

qinzhi520 · 发表于 2020-3-1 17:29

网海遨游发表于 2020-3-1 17:04
是不是要这样的?

可以了，谢谢

		自动登录	找回密码
密码			免费注册

求助怎么批量打印

最新热点 /1