求助补充代码（在批量打印的时候如何添加几句代码，达到打印的同时将“A1:J42”区....

djp1018 · 发表于 2024-4-29 22:32

闻启学发表于 2024-4-28 22:11
明白了生成结果要与模版一样一样啊包含字体大小格式之类的

就是这个意思，感谢老师能否帮忙处理一下

维叶 · 发表于 2024-4-30 08:31

本帖最后由维叶于 2024-4-30 08:36 编辑

djp1018 发表于 2024-4-29 21:59
老师：您好！按您说的还是不能达到预期效果

你是怎么按我说的做的，我是让你把模版放在新建文件夹，这样每次新建的文件就和你放入的模版文件格式一样，我只复制内容进去了

djp1018 · 发表于 2024-4-30 11:05

维叶发表于 2024-4-30 08:31
你是怎么按我说的做的，我是让你把模版放在新建文件夹，这样每次新建的文件就和你放入的模版文件格式一样 ...

就是换成老师的代码，然后在新建文件夹下放个模板文件，运行宏之后出现报错见图

维叶 · 发表于 2024-4-30 11:10

djp1018 发表于 2024-4-30 11:05
就是换成老师的代码，然后在新建文件夹下放个模板文件，运行宏之后出现报错见图

这句代码改下就可以了
Workbooks.Add strpath & "\模版.xlsx"

djp1018 · 发表于 2024-4-30 14:21

维叶发表于 2024-4-30 11:10
这句代码改下就可以了
Workbooks.Add strpath & "\模版.xlsx"

改成这句代码还是一样的，麻烦老师直接发压缩包可以吗？感谢

维叶 · 发表于 2024-4-30 14:43

本帖最后由维叶于 2024-4-30 14:46 编辑

djp1018 发表于 2024-4-30 14:21
改成这句代码还是一样的，麻烦老师直接发压缩包可以吗？感谢

附件已上传，不好意思是语句错误，打印语句我注释了，正式打印就去掉注释

djp1018 · 发表于 2024-4-30 17:35

维叶发表于 2024-4-30 14:43
附件已上传，不好意思是语句错误，打印语句我注释了，正式打印就去掉注释

感谢老师，终于可以实现想要的效果了

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