以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这个错误是什么意思？关于条码尺寸的？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29788)
--  作者：lrj829
--  发布时间：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编辑过]
--  作者：lrj829
--  发布时间：2013/3/13 16:39:00
--  
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2013/3/13 16:43:00
--  
意思是条码有自己的编码规则，你指定的值不符合这种条码类型的编码规则
--  作者：lrj829
--  发布时间：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()