Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Bar.BarHeight = 15
Bar.QuietZoneWidth = 2
\'Bar.BarWidth = 0.32

       Dim rt2 As New prt.RenderTable() \'定义一个表格对象
        rt2.Rows.Count = 1 \'设置总行数
        rt2.Cols.Count = 2 \'设置总列数
        rt2.Height = 19 \'设置表格的高度
        rt2.Width = "Auto"
        rt2.Rows(0).Height = 73
        rt2.Cols(0).Width = 76
        rt2.Cols(1).Width = 380
        Bar.Code = s1 & "-" & i +1
        rt2.Cells(0,0).Image = GetImage("ppp.png")
        rt2.Cells(0,1).Image = Bar.Image
黄色标记去掉这行代码（条码窄宽为默认时），打印的条码可以扫描。如果是手动设置打印条码识别不了。急！这个如何处理？

我试过很多方法，只要采用专业报表方式，只要改变默认条码窄宽时，打印出来的条码都不可识别。

只有用EXCEL模板方式加载图片打印如何改变都可以扫描。不知问题在哪？

你直接用这个对象打印吧：

http://www.foxtable.com/help/topics/1225.htm