将一个表的数据传到另外一个表中并打印的问题

喝酒的毛毛虫 · 发表于 2024-3-8 17:32

问题描述：要将“廉政鉴定”表中的每一行对应的列的数据通过点击按钮传送到“打印模板”表对应位置替换模板的内容，然后执行打印预览，请问大神VBA如何实现，或者有啥更好的办法，感谢分享帮助。

鉴定登记表.zip (19.06 KB, 下载次数: 4)

shiruiqiang · 发表于 2024-3-8 18:54

新手思路：批量打印的话，邮件合并或群里搜索一下。
2、单人的话，按钮，会话框，输入姓名，找到后打印

3190496160 · 发表于 2024-3-8 22:33

每行设置一个按钮的思路绝对是不可取的，一个按钮，选择姓名打印即可

3190496160 · 发表于 2024-3-9 09:49

Sub 生成函证()
With Sheets("廉政鉴定")
r = .Cells(Rows.Count, 2).End(xlUp).Row
If r < 3 Then MsgBox "廉政鉴定为空！": End
ar = .Range("a3:h" & r)
End With
w = InputBox("请输入要打印的序号", "序号", "3")
With Sheets("打印模板")
.[F3] = ar(w, 4)
.[a4] = "关于" & ar(w, 5) & "同志廉政情况的复函"
.[a6] = " 《" & ar(w, 2) & "》收悉。经核，我委" & ar(w, 7) & "以来没有收到关于" & ar(w, 5) & "同志（" & ar(w, 6) & "）的举报材料。目前我委未发现" & ar(w, 5) & "同志有违纪违法问题，也没有单位和个人向我委反映该同志有其他党风廉政问题。"
.[e11] = ar(w, 8)
.PrintOut
End With
MsgBox "OK！"
End Sub

3190496160 · 发表于 2024-3-9 09:50

鉴定登记表.rar (24.38 KB, 下载次数: 5)

喝酒的毛毛虫 · 发表于 2024-3-9 10:55

3190496160 发表于 2024-3-8 22:33
每行设置一个按钮的思路绝对是不可取的，一个按钮，选择姓名打印即可

非常感谢老师的帮助。完美

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

[求助] 将一个表的数据传到另外一个表中并打印的问题

评分