如何一键连打

quqiyuan · 发表于 2024-9-28 10:49

参与一下，仅供参考。。。
设置一下【s3】单元格，然后连续打印

quqiyuan · 发表于 2024-9-28 10:50

代码如下。。。
Sub test()
n = Me.[s3]
For i = n To Me.[s4]
      With Me
         .PageSetup.PrintArea = "C1:O19"
         .PrintOut
         .[s3] = n + 1
      End With
Next
Me.[s3] = n
Beep
End Sub

二号杨杨嘎嘎 · 发表于 2024-9-28 11:09

3190496160 发表于 2024-9-28 10:48
仅供参考

好像不行哦，我的意思是点击一下，所以序号就自动打印，可以么，就是起始号自动打印到终止号

3190496160 · 发表于 2024-9-28 15:26

二号杨杨嘎嘎发表于 2024-9-28 11:09
好像不行哦，我的意思是点击一下，所以序号就自动打印，可以么，就是起始号自动打印到终止号

呵呵呵呵呵，不知道该说什么了，最不想看到的就是好像二字

二号杨杨嘎嘎 · 发表于 2024-9-28 17:13

3190496160 发表于 2024-9-28 15:26
呵呵呵呵呵，不知道该说什么了，最不想看到的就是好像二字

我再试看看

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

[求助] 如何一键连打