根据数据源批量打印固定格式的告知书！敬请大神指点。

tlzhh · 发表于 2018-6-15 18:56

yaojil · 发表于 2018-6-15 19:39

本帖最后由 yaojil 于 2018-6-16 12:12 编辑

只做打印用

tlzhh · 发表于 2018-6-15 20:28

太神速了吧！

tlzhh · 发表于 2018-6-15 20:31

不能用，Sheets("告知书").Range("A1:I15").PageSetup.PrintArea = "$A$1:$I$15"错误

yaojil · 发表于 2018-6-16 07:57

tlzhh 发表于 2018-6-15 20:31
不能用，Sheets("告知书").Range("A1:I15").PageSetup.PrintArea = "$A$1:$I$15"错误

附件已更新

tlzhh · 发表于 2018-6-16 08:14

yaojil 发表于 2018-6-16 07:57
附件已更新

可能我没表达明白，是根据数据源表生成告知书，数据源表有多少户编号家庭，就生成多少张家庭告知书。本来想用邮件合并功能，但不很合适。

yaojil · 发表于 2018-6-16 12:17

最后一个会报错，但能生成相应的表格
以户编号为工作表名称，是防止户主姓名很可能会有重名，程序会报错

tlzhh · 发表于 2018-6-17 15:29

yaojil 发表于 2018-6-16 12:17
最后一个会报错，但能生成相应的表格
以户编号为工作表名称，是防止户主姓名很可能会有重名，程序会报错

谢谢，是生成一张工作表的告知书，不是每户生成一张工作表。VBA还是有点小问题，需要调试。

tlzhh · 发表于 2018-6-21 22:24

还是不能使用

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

[求助] 根据数据源批量打印固定格式的告知书！敬请大神指点。