A4纸的多个小标签套打，并更新二维码

zpy2

zpy2 发表于 2021-7-14 08:01
select createqr(编号)||''||编号 from 二维码编号明细表

4列。。。。感觉有点宽

jlj588

zpy2 发表于 2021-7-14 08:09
4列。。。。感觉有点宽

请问这个怎么实现的呢？谢谢

zpy2

jlj588 发表于 2021-7-14 08:37
请问这个怎么实现的呢？谢谢

http://club.excelhome.net/forum.php?mod=viewthread&tid=1584463&page=1&mobile=&_dsign=70452270

ggmmlol

小标签套打.rar (151.42 KB, 下载次数: 86)

2021-7-14 18:31 上传

点击文件名下载附件

jlj588

ggmmlol 发表于 2021-7-14 10:07

标签数据能不能修改在左边，对应二维码在右边， 不要上下结构的。 因为实物标签纸是横向的

jlj588

ggmmlol 发表于 2021-7-14 10:07

大哥，这个有问题，打印出来的二维码，全部是一样的编号哦，

ggmmlol

jlj588 发表于 2021-7-14 11:28
大哥，这个有问题，打印出来的二维码，全部是一样的编号哦，

已经在14楼更新了附件。

一、对于生成二维码的图片全部一样的问题，经过好一番折腾，才找出原因，现在解决了，可以刷新了。
二、模板也完全用你原来的样式横排。
三、二维码纠错等级提到最大了。原来的纠错等级过低，而模板中图片设定的尺寸又很小，导致一些生成的二维码无法被识别，现在应该都好了。

jlj588

ggmmlol 发表于 2021-7-14 18:39
已经在14楼更新了附件。

一、对于生成二维码的图片全部一样的问题，经过好一番折腾，才找出原因，现在 ...

如果想打印模板里的 2、4、6、8、10~ 24行的偶数行内容全部为空，    1、3、5~ 25行为13个小标签数据，二维码数据也只显示在这些奇数行。这个代码怎么改？

（也就是想在标签中间插入小的空白行保持和打印模板纸高度一致。不然很难调整。）


Sub 标签套打()
    With Sheet2
        r = .Cells(.Rows.Count, 1).End(xlUp).Row
        ar = .Range("A2").Resize(r)
    End With
    Dim br(1 To 13, 1 To 10)
    Do While n < r
        Erase br
        For k = 1 To 10 Step 3
            For j = 1 To 13
                n = n + 1
                If n = r Then Exit For
                br(j, k) = ar(n, 1)
            Next
            If n = r Then Exit For
        Next
        Me.Range("A1").Resize(13, 10) = br
        Call ttt
        Me.PrintOut Preview:=True
    Loop
End Sub

ggmmlol

jlj588 发表于 2021-7-14 19:28
如果想打印模板里的 2、4、6、8、10~ 24行的偶数行内容全部为空，    1、3、5~ 25行为13个小标签数据，二 ...

修改了模板，要重新上附件。对于任何新增加的条件，都宜结合实际附件予以说明，且应模拟期望的结果。

jlj588

ggmmlol 发表于 2021-7-14 20:45
修改了模板，要重新上附件。对于任何新增加的条件，都宜结合实际附件予以说明，且应模拟期望的结果。

修改了模板，麻烦看看，怎么才能让1~25的偶数行全部为空，奇数行有数据和二维码，
还有二维码怎么改到最小，扫码能识别到即可。谢谢！