求个一键生成标签的vba

韵雪中庸

需求：自动按e2单元格的数量一键生成标签个数
条件：1、根据表格bz里面的数据，每一行数据生成一个标签。
          2、保留标签里面的公式。
          3、表格标签占用5行2列（或者自定义行、列数）。
          4、每个标签大小为A5纸内。


数据表.zip (108.69 KB, 下载次数: 8)

2024-1-24 13:23 上传

点击文件名下载附件

清风竹-

请看附件。

清风竹-

可直接打印。

韵雪中庸

清风竹- 发表于 2024-1-24 15:05
可直接打印。

很不错，还开发了衍生版，
老师，这个还可以改进一下吗，如果打印机是pdf虚拟打印机，是否可以只生成一个pdf文件，比如：有10个标签，就生成一个10页的pdf文件。

洋务德雷

我没有调整格式，但是这个问题似乎使用word中的邮件合并功能就可以完美解决呀。

韵雪中庸

洋务德雷 发表于 2024-1-25 08:50
我没有调整格式，但是这个问题似乎使用word中的邮件合并功能就可以完美解决呀。

嗯，邮件合并是可以，但是要转Word，多操作几步，这个可以一步到位

韵雪中庸

清风竹- 发表于 2024-1-24 14:30
请看附件。

还有个小细节  好像生成的标签每行的行高是自动调整的，能否固定成模板设置的行高

清风竹-

韵雪中庸 发表于 2024-1-25 10:33
还有个小细节  好像生成的标签每行的行高是自动调整的，能否固定成模板设置的行高

请看附件。

韵雪中庸

清风竹- 发表于 2024-1-25 11:24
请看附件。

完美，老师，你那个直接打印的方案，如果打印机是pdf虚拟打印机，是否可以只生成一个pdf文件，比如：有10个标签，就生成一个10页的pdf文件。

清风竹-

韵雪中庸 发表于 2024-1-25 13:11
完美，老师，你那个直接打印的方案，如果打印机是pdf虚拟打印机，是否可以只生成一个pdf文件，比如：有10 ...

请看附件。