主题：二维码生成后预览报表设计及显示问题

二维码生成后预览报表如何设置成下面的格式呢？

显示格式：

 

第一列

 

第二列                     第六列

第三列                     第七列

第四列                     第八列

第五列                     第九列                       第十列

 

 

 

说明：

第一到九列显示表A中对应字段的值     第十列显示已经生成的二维码

然后将这个预览效果显示在窗体中的网页浏览器里  并且点按钮可以实现直接打印 无需再次浏览

保存二维码  保存当前生成的二维码为图片

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

点击浏览该文件:二维码.rar

此主题相关图片如下：qq图片20140725103704.jpg

 试了一下，很麻烦，如果你要在webbrowser里面预览的话，你就得拼凑html代码生成xxx.htm文件。直接用doc.saveHtm格式有点不妥。

 

 建议你这样做吧，用excel做个模板，去掉网格线什么的，先生成了报表，然后显示在webbrowser里面，相对来说你会熟悉一点。

有点甜老师 确实是 

 这个很简单吧？直接save即可

 

bar.SaveImage(ProjectPath & "Images\myimg.wmf")

这个是在单个选定的情况下是没有问题的  但是在批量生成的模式下 如何批量保存呢？

 

保存的时候，根据每一行的_Identify命名即可，这样就不会有重复的名字了。然后把路径保存到第十列即可。

单个保存已经成功了 

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    bar.Code ="姓   名:" & r("第一列") & Chr(13) & Chr(10) & "联系电话:" & r("第二列") & Chr(13) & Chr(10) & "职   务:" & r("第三列")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    bar.SaveImage(ProjectPath & "Attachments\" & r("_Identify") & "二维码.wmf")
    r("第十列") = r("_Identify") & "二维码.wmf"
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()

谢谢有点甜老师  

二维码如果保存的信息 过多 是不是会影响扫码识别率哦！