如何一键连打

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

不想一张一张点打印，跪求设置一键连打，附件密码lyylsm，，这个只是一家公司比较少，还有其他家公司几百页，帮忙看看

饮冰e士 · 发表于 2024-9-28 10:10

本帖最后由饮冰e士于 2024-9-28 10:12 编辑

给单页打印加个循环就可以了吧。
文件没有保留代码，根据表格里的“隐藏连打”来看，原文件应该是已经实现连打功能了吧。

二号杨杨嘎嘎 · 发表于 2024-9-28 10:12

饮冰e士发表于 2024-9-28 10:10
给单页打印加个循环就可以了吧。

能帮忙弄下么，我是不懂

二号杨杨嘎嘎 · 发表于 2024-9-28 10:16

饮冰e士发表于 2024-9-28 10:10
给单页打印加个循环就可以了吧。
文件没有保留代码，根据表格里的“隐藏连打”来看，原文件应该是已经 ...

没有，那个设置只是好看，点了运行不了

liulang0808 · 发表于 2024-9-28 10:22

打开文件，提示有保护密码

二号杨杨嘎嘎 · 发表于 2024-9-28 10:27

liulang0808 发表于 2024-9-28 10:22
打开文件，提示有保护密码

密码是lyylsm

liulang0808 · 发表于 2024-9-28 10:47

楼主所谓的连打，是根据这部分设置进行连打的吗？

根据这个起始号变化的，打印左侧的表格区域吗？

3190496160 · 发表于 2024-9-28 10:47

Sub 连续打印()
ks = [s2]
js = [s4]
If ks = "" Then MsgBox "请输入开始序号！": End
If js = "" Then MsgBox "请输入结束序号！": End
If ks > js Then MsgBox "开始序号必须小于等于结束序号！": End
For i = ks To js
[s3] = i
ActiveSheet.PrintOut
Next i
MsgBox "打印完毕！"
End Sub

3190496160 · 发表于 2024-9-28 10:48

仅供参考

入库单.rar (923.83 KB, 下载次数: 9)

二号杨杨嘎嘎 · 发表于 2024-9-28 10:49

liulang0808 发表于 2024-9-28 10:47
楼主所谓的连打，是根据这部分设置进行连打的吗？

根据这个起始号变化的，打印左侧的表格区域吗？

对的，没错，这家量少一点，还有其他家量多，有一两百个

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

[求助] 如何一键连打