以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  急！老大，条码打印不行，应是代码问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5504)
--  作者：baoxyang
--  发布时间：2009/12/15 9:05:00
--  急！老大，条码打印不行，应是代码问题？
 

Dim doc As New PrintDoc
Dim rbc As New prt.RenderBarCode()
rbc.Width = 60
rbc.Height = 20
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "123456"
rbc.ShowText = True
doc.Body.Children.Add(rbc)
Doc.Preview()


打印预览效果，直线有阴影，打印出来是点线或波浪费，有的是直线。请老大帮看看，急！！
--  作者：狐狸爸爸
--  发布时间：2009/12/15 9:23:00
--  

收到
--  作者：baoxyang
--  发布时间：2009/12/15 9:28:00
--  
麻烦老大百忙之中抽点时间尽快处理下，我这要做条码出库，现没有办法打印没有条码的货物，谢谢！！
--  作者：狐狸爸爸
--  发布时间：2009/12/15 9:30:00
--  
急的话，用窗口打印，窗口的条码打印没有这个问题
--  作者：baoxyang
--  发布时间：2009/12/15 9:33:00
--  

哦，但不知如何在窗口打印，麻烦老大指点下！
--  作者：yangming
--  发布时间：2009/12/15 9:48:00
--  
以下是引用baoxyang在2009-12-15 9:33:00的发言：

哦，但不知如何在窗口打印，麻烦老大指点下！

窗口中插入条码，然后打印窗口
--  作者：狐狸爸爸
--  发布时间：2009/12/15 9:49:00
--  
Dim doc As New PrintDoc
Dim rbc As New C1.Win.C1BarCode.C1BarCode
rbc.Width = 60
rbc.Height = 20
rbc.CodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "123456789"
rbc.ShowText = True
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Width = 60
rm.Height = 20
rm.Image = rbc.Image \'设置图片
doc.Body.Children.Add(rm) \'将图片对象加入报表
Doc.Preview()
--  作者：yangming
--  发布时间：2009/12/15 10:11:00
--  
我试了，这样可以，只是这句是什么意思不清楚，请贺老师指教：Dim rbc As New C1.Win.C1BarCode.C1BarCode

Dim doc As New PrintDoc() \'定义一个报表
Doc.PageSetting.LeftMargin = 5
Doc.PageSetting.RightMargin = 3
Doc.PageSetting.TopMargin = 10
Dim rw As row = Tables("窗口1_Table1").current
doc.PageSetting.Width = 80 \'纸张宽度为100毫米
doc.PageSetting.Height = 50
doc.PageSetting.Landscape = true \'横向打印
Dim rbc As New C1.Win.C1BarCode.C1BarCode
rbc.Width = 60
rbc.Height = 20
rbc.CodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = rw("第一列")
rbc.ShowText = True
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Width = 60
rm.Height = 20
rm.Image = rbc.Image \'设置图片
doc.Body.Children.Add(rm) \'将图片对象加入报表
Doc.Preview()
[此贴子已经被作者于2009-12-15 10:12:08编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/12/15 10:14:00
--  
呵呵，原理就不用管它了。
这是临时性的东西
[此贴子已经被作者于2009-12-15 10:14:23编辑过]
--  作者：baoxyang
--  发布时间：2009/12/15 10:43:00
--  
试过，可以打印出来，用采集器试读下，类型为 Code 93 ,而不是 Code 39 ，请教下这两者有何区别？