- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 这个错误是什么意思？关于条码尺寸的？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29788)
-- 发布时间：2013/3/13 16:33:00
-- 这个错误是什么意思？关于条码尺寸的？
代码是这样的
Dim Bar As New BarCodeBuilder
Dim rm As New prt.RenderImage
Bar.Symbology = Barpro.Symbology.Code128
Bar.Code = billnoid
\'Bar.BarWidth = 8
\'Bar.BarHeight = 5
bar.AddCheckSum = False
bar.DisplayCode = False
\'bar.SaveImage(ProjectPath & "Images\\myimg.wmf",300)
rm.Image = Bar.GetImage(300)
doc.Body.Children.Add(rtt)
rtt = New prt.RenderText
rtt.Text = "采购订单"
rtt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rtt.Style.FontBold = True
rtt.Style.FontSize = 20
doc.Body.Children.Add(rtt)
-- 发布时间：2013/3/13 16:37:00
--
你最好贴能编译通过的代码，方便别人测试。
[此贴子已经被作者于2013-3-13 16:37:52编辑过]
-- 发布时间：2013/3/13 16:39:00
--
-- 发布时间：2013/3/13 16:43:00
--
意思是条码有自己的编码规则，你指定的值不符合这种条码类型的编码规则
-- 发布时间：2013/3/13 16:51:00
--
Dim Bar As New BarCodeBuilder
Dim rtt As prt.RenderText
Dim rm As New prt.RenderImage
Bar.Symbology = Barpro.Symbology.Code128
Bar.Code = "000-11010100001"
\'Bar.BarWidth = 8
\'Bar.BarHeight = 5
bar.AddCheckSum = False
bar.DisplayCode = False
bar.SaveImage(ProjectPath & "Images\\myimg.wmf",300)
\'rm.Image = Bar.GetImage(300)
\'doc.Body.Children.Add(rtt)
\'Doc.Preview()
如果只是生成图片 不加入到报表就可以执行成功
-- 发布时间：2013/3/13 16:56:00
--
我测试没有出错：
Dim Doc As new PrintDoc
Dim Bar As New BarCodeBuilder
Dim rtt As new prt.RenderText
Dim rm As New prt.RenderImage
Bar.Symbology = Barpro.Symbology.Code128
Bar.Code = "000-11010100001"
Bar.BarWidth = 8
Bar.BarHeight = 5
bar.AddCheckSum = False
bar.DisplayCode = False
bar.SaveImage(ProjectPath & "Images\\myimg.wmf",300)
rm.Image = Bar.GetImage(300)
doc.Body.Children.Add(rtt)
Doc.Preview()