主题：[讨论]关于二维码报表

这样是可以固定二维码大小了，但是二维码里面也没有信息了，，

 

你本来的代码怎么写的还是怎么写，关键看20楼红色代码。

 

如果不会做，请贴出你原来写的代码，或者上传实例测试。

这个是上传的实例，注释的代码是按照20楼的代码写的，里面没有信息，我写的不能固定大小的才有信息

请正确上传foxtable项目。

ok，我看着上传文件的说明来，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

这样写代码测试没问题

 

Dim doc As New PrintDoc()  '定义一个报表
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Dim img As prt.RenderImage
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("订单").Rows '逐行生成报表
    Dim ra As new  prt.RenderArea
    Dim rt As prt.RenderText
    ra.width=100
    ra.Height=24
    ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    ra.Style.Spacing.Bottom = 3
    ra.Style.Borders.All = New prt.Linedef(0.3, Color.black) '设置边框
    Doc.Body.ChildRen.Add(ra) '将容器加入到报表中
    rt=new prt.rendertext
    rt.text="单价:"
    rt.x=2
    rt.y=2
    ra.children.add(rt)
   
    rt=new prt.rendertext
    rt.text=r("单价")
    rt.x=12
    rt.y=2
    ra.children.add(rt) 
   
    rt=new prt.rendertext
    rt.text="数量:"
    rt.x=2
    rt.y="prev.bottom+4"
    ra.children.add(rt)
   
    rt=new prt.rendertext
    rt.text=r("数量")
    rt.x=15
    rt.y="prev.top"
    ra.children.add(rt)
       
    Bar.Code ="单价:" & r("单价") & vbcrlf & "数量:" & r("数量")   
    rg = New prt.RenderGraphics()
    rg.Graphics.DrawImage(bar.GetImage,0,0, 50, 50)
    'bar.DrawOnCanvas(rg.Graphics,0,0,0.47)
    rg.x=75
    rg.y=1
    ra.children.Add(rg)
Next
Doc.Preview()

我大概知道我开始是怎么错了的，我设置了两次二维码位置参数，可能是这个问题导致重复，所以扫码扫不出来，感谢版主了。