以文本方式查看主题

-  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=18384)
--  作者：tungwun
--  发布时间：2012/4/11 14:31:00
--  [求助]
请问已下条码代码打印条码 激光条码机不能阅读?
Dim rm As New prt.RenderBarCode()
rm.Height =10
rm.BarCodeType = BarCodeEnum.Code39
rm.BarDirection = BarDirectionEnum.Normal 
rm.Text = CurRow("車牌號碼")
rm.x = 95
rm.y = 162
doc.Body.Children .Add(rm) 
--  作者：lyq
--  发布时间：2012/4/11 14:54:00
--  
Dim rm As New prt.RenderBarCode()
rm.Height =10
rm.BarCodeType = BarCodeEnum.Code39
rm.BarDirection = BarDirectionEnum.Normal 
rm.Text = "*" & CurRow("車牌號碼") & "*"
rm.x = 95
rm.y = 162
doc.Body.Children .Add(rm) 
--  作者：tungwun
--  发布时间：2012/4/11 16:47:00
--  请问用者代码可已条码机阅读
请问用者代码可已条码机阅读

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.code39
Bar.Code = "KF6750"
\'打印条形?
Dim doc As New PrintDoc 
Dim rm As New prt.RenderImage
rm.Image = Bar.GetImage(300)
doc.Body.Children.Add(rm)
Doc.Preview()