主题：关于条码打印的问题

用这种方式打印条码

http://www.foxtable.com/webhelp/scr/2093.htm

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef '设置网格线
'下面的代码向表格中填入值
rt.Cells(0, 0).text = 123

Dim ccc As New prt.RenderGraphics()
Dim BarID1 As New BarCodeBuilder
BarID1.Symbology = Barpro.Symbology.Code128
BarID1.Code = "3333"
BarID1.QuietZoneWidth = 3
BarID1.DrawOnCanvas(ccc.Graphics,0,0,1)
rt.cells(1,0).RenderObject = ccc

rt.Cells(2, 0).text = 765

doc.Preview() '预览报表