Dim doc As New PrintDoc() \'定义一个报表
doc.PageSetting.Width = 90 \'纸张宽度为90毫米
doc.PageSetting.Height = 50
Doc.PageSetting.LeftMargin = 5 \'设置左边距
Doc.PageSetting.RightMargin = 1 \'设置右边距
Doc.PageSetting.TopMargin = 1 \'设置上边距
Doc.PageSetting.BottomMargin = 1 \'设置下边距

 Dim ra As New prt.RenderArea \'定义一个容器

 Dim ra1 As New prt.RenderArea \'定义一个容器

        Dim rt As New prt.RenderTable() \'定义一个表格对象
        rt.CellStyle.Spacing.All = 1 \'单元格内容缩进1毫米
        rt.Style.Spacing.Bottom = 0 \'和下一个工资条的距离是3毫米
        rt.Rows.Count = 1 \'设置总行数
        rt.Cols.Count = 2 \'设置总列数
        rt.Height = 19 \'设置表格的高度
\'        rt.Width = "Auto"
        rt.Rows(0).Height = 73
        rt.Cols(0).Width = 70
        rt.Cols(1).Width = 380
        Dim ra1 As New prt.RenderArea \'定义一个容器
        ra1 = rt.Cells(0,0).Area

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Bar.BarHeight = 15
Bar.QuietZoneWidth = 2
\'Bar.BarWidth = 0.32
Bar.CodeAlignment = Barpro.Alignment.AboveCenter
Bar.TextAlignment = Barpro.Alignment.BelowCenter
Bar.Font = New Font("宋体",10.5)

Dim rm As New prt.RenderImage
rm.Width = "Auto" \'设置尺寸，这个尺寸最好和图表尺寸一致，以免打印出来的图表变形。
rm.Height = "Auto"

rm.Image =  bar.GetImage
rm.Style.ImageAlign.StretchHorz = False \'禁止拉伸
rm.Style.ImageAlign.StretchVert = False
rm.Style.Spacing.Top = 3

ra1.Children.Add(rm) \'加入图片到RenderArea中

ra.Children.Add(rt) \'加入到容器中
doc.Body.Children.Add(ra) \'将图片对象加入报表
doc.Preview()

出现结果是当\'Bar.BarWidth = 0.32
当值为默认值时打印出来的条码可以正常扫描,当改变值时打印不能扫描.用条码生成器生成就可以(宽度是一样)

请教,以上代码问题出在哪?

这个真不清楚，你单独打印一个看看。

我用EXCEL模板方式任意调整条码窄宽打印就可以，用专业报表默认条码窄宽可以，否则不行。这个是否跟图像变形了有关。这个如何防止？请高手指点！