用邮件全并打量打印证书，内容长短不一如何自动调整。

xsw95 · 发表于 2023-2-16 10:47

mmwwdd 发表于 2023-2-16 06:58
清华的也来了，够劲

清华北

xsw95 · 发表于 2023-2-16 10:48

xsy我可以很好发表于 2023-2-15 23:45
在EH就别用邮件合并了

非常感谢！

xsw95 · 发表于 2023-2-16 10:52

xsy我可以很好发表于 2023-2-15 23:45
在EH就别用邮件合并了

如果有几百个，可以批量打印吗？再次感谢！

chengyunpan · 发表于 2023-2-16 12:27

xsw95 发表于 2023-2-16 10:47
找了好久没找到，可以指点一下链接吗？

点我的头像进去，我发表的主题里面有

xsy我可以很好 · 发表于 2023-2-16 12:42

xsw95 发表于 2023-2-16 10:52
如果有几百个，可以批量打印吗？再次感谢！

你自己试试吧，我没有打印机，无法测试

Sub dy()
dy = InputBox("请输入需要打印的启始页", "温馨提示", "")
dc = InputBox("请输入需要打印的结束页", "温馨提示", "")
For i = dy To dc '设置循环
[i3] = i
ActiveSheet.PrintOut
Next i
End Sub

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

[求助] 用邮件全并打量打印证书，内容长短不一如何自动调整。