我试了，这样可以，只是这句是什么意思不清楚，请贺老师指教：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编辑过]
加好友 
发短信
Post By：2009/12/15 9:48:00 [显示全部帖子]
