以下是引用rjh4078在2012-10-19 21:35:00的发言:
感谢lin的指导 不过测试了大半下午 还是没有解决识别的问题 条码可以正常打印出来 条码枪就是不识别 换了几把枪也是一样
把代码删减到最简单。例如下面那样,这样如果可以,就慢慢加入你要的代码。一步一步就知道哪里错了。
Dim doc As New PrintDoc
Dim img As
prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology =
Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight =
8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code = "111222333"
img = new
prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Doc.Preview()
[此贴子已经被作者于2012-10-20 9:33:17编辑过]