以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一行打印多个二维码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189097)

--  作者:edisontsui
--  发布时间:2023/11/10 9:58:00
--  一行打印多个二维码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:铝巴送货单票号一览表.rar

上面的excel表格里面,我希望一行能够打印两个二维码,而这两个二维码是来自两个不同的数据行的。请问要怎样来表达才能做到这点要求?谢谢。

--  作者:有点蓝
--  发布时间:2023/11/10 10:09:00
--  
使用不同的名称即可,比如第一个BarCode.gif,第二个BarCode2.gif
--  作者:edisontsui
--  发布时间:2023/11/10 10:47:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:铝巴送货单票号一览表1.zip

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:铝巴送货单票号一览表2.rar
请看附页档案。第二列的二维码没有出来。


--  作者:有点蓝
--  发布时间:2023/11/10 10:52:00
--  
项目里存在BarCode2.gif这个文件吗
--  作者:edisontsui
--  发布时间:2023/11/10 11:24:00
--  
If e.Book.TempLate = "铝巴送货单票号一览表" Then \'TempLate是指模板文件的名称
    If e.region = "铝巴送货单票号一览表" Then
        Dim Bar As New BarCodeBuilder
\'        Bar.Symbology = Barpro.Symbology.Code128
        Bar.Symbology = Barpro.Symbology.QRCode
        Bar.Code = e.DataRow("票号")
\'        Bar.BarRatio = 0.3
\'        Bar.BarHeight = 25
        bar.SaveImage(ProjectPath & "Images\\BarCode.gif", 300)
    End If
End If

上面是 Builddetail 里面的代码,是不是这里也要怎样修改才行?谢谢。

--  作者:有点蓝
--  发布时间:2023/11/10 11:38:00
--  
BeforeBuild
If e.Book.TempLate = "铝巴送货单piao号一览表" Then \'TempLate是指模板文件的名称
    If e.region = "铝巴送货单piao号一览表" Then
        e.Book.Marks.Add("记录数",1)
End if
End
 if

Builddetail 
If e.Book.TempLate = "铝巴送货单piao号一览表" Then \'TempLate是指模板文件的名称
    If e.region = "铝巴送货单piao号一览表" Then
        Dim Bar As New BarCodeBuilder
\'        Bar.Symbology = Barpro.Symbology.Code128
        Bar.Symbology = Barpro.Symbology.QRCode
        Bar.Code = e.DataRow("piao号")
\'        Bar.BarRatio = 0.3
\'        Bar.BarHeight = 25
if e.Book.Marks("已结账") = 1
e.Book.Marks("已结账") = 2
        bar.SaveImage(ProjectPath & "Images\\BarCode.gif", 300)
else
e.Book.Marks("已结账") = 1
bar.SaveImage(ProjectPath & "Images\\BarCode2.gif", 300)
end if
    End If
End If

--  作者:edisontsui
--  发布时间:2023/11/10 12:48:00
--  
6楼 beforebuild 代码会出现如下提示:
e.region 不是 buildeventArgs 的成员。

--  作者:edisontsui
--  发布时间:2023/11/10 12:58:00
--  
改了。可以了。谢谢。
--  作者:edisontsui
--  发布时间:2023/11/10 13:07:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:铝巴送货单票号一览表3.rar

还有一个问题,左边的数据(A列)与其右边的二维码内容(B列扫描的结果)是不一致的,请问是什么原因呢?

--  作者:edisontsui
--  发布时间:2023/11/10 13:08:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:铝巴送货单票号一览表5.rar

这是模板。