主题：急！老大，条码打印不行，应是代码问题？

 

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()

打印预览效果，直线有阴影，打印出来是点线或波浪费，有的是直线。请老大帮看看，急！！

收到

麻烦老大百忙之中抽点时间尽快处理下，我这要做条码出库，现没有办法打印没有条码的货物，谢谢！！

急的话，用窗口打印，窗口的条码打印没有这个问题

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

窗口中插入条码，然后打印窗口

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()

我试了，这样可以，只是这句是什么意思不清楚，请贺老师指教：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()

呵呵，原理就不用管它了。
这是临时性的东西

试过，可以打印出来，用采集器试读下，类型为 Code 93 ,而不是 Code 39 ，请教下这两者有何区别？