| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/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() |