主题：【二维码】怎么按照我设定的缩放比例进行二维码图片列的打印呢？

看不懂你要做什么，大概这个意思

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

Dim bl = (doc.PageSetting.Width.value-doc.PageSetting.LeftMargin.value-doc.PageSetting.RightMargin.value) / 25.4 * 96 / 103
msgbox(bl)
For Each r As Row In Tables("表A").Rows
    bar.Code = r("第一列")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,bl)
    rg.Style.BackColor = color.red
    Doc.Body.Children.Add(rg)
Next

Doc.Preview()

1、存放图片的时候，你要存放为wmf的格式，不然拉伸、缩放的时候，会变模糊；

2、尝试测试代码

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 215 '纸张宽度为215毫米
doc.PageSetting.Height = 280 '纸张高度为280毫米

Dim rg1 As New prt.RenderGraphics()
Dim g= rg1.Graphics
Dim image = getimage("d:\test.wmf")

g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.SmoothingMode = SmoothingMode.HighQuality
g.CompositingQuality = CompositingQuality.HighQuality
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half

Dim bl = (doc.PageSetting.Width.value-doc.PageSetting.LeftMargin.value-doc.PageSetting.RightMargin.value) / 25.4 * 96  / image.width
g.DrawImage(image,0,0,cint(image.width*bl), cint(image.height*bl))
doc.Body.Children.Add(rg1) '将图片对象加入报表
Doc.Preview() '预览