以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  条形码宽度会变化  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131007)
--  作者：edisontsui
--  发布时间：2019/2/14 10:32:00
--  条形码宽度会变化
    ra = rt.cells(4,0).area
    Dim rg As New prt.RenderGraphics
    Dim Bar1 As New BarCodeBuilder
    Bar1.Symbology = Barpro.Symbology.Code39
    bar1.Code = r("客户物料编号")
    rg = new prt.RenderGraphics
    bar1.DrawOnCanvas(rg.Graphics,0,0,1)
    ra.Children.Add(rg)

我的上述代码是要将条形码放在表格里面的，但是，因为“客户物料编号”的内容有长有短，造成条形码宽度也有长有短，长的条形码有时会超出预定的单元格边界。能否限定条形码的高度和宽度（比如20mm*10mm），然后将条形码放在指定大小的单元格里面（比如18mm*8mm），并且左右、上下都是置中放置？谢谢。
--  作者：有点甜
--  发布时间：2019/2/14 11:09:00
--  

 

不可以，做不到。