- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 二维码生成后预览报表设计及显示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54293)
-- 发布时间：2014/7/25 10:38:00
-- 二维码生成后预览报表设计及显示问题
二维码生成后预览报表如何设置成下面的格式呢？
显示格式：
第一列
第二列 第六列
第三列 第七列
第四列 第八列
第五列 第九列 第十列
说明：
第一到九列显示表A中对应字段的值 第十列显示已经生成的二维码
然后将这个预览效果显示在窗体中的网页浏览器里 并且点按钮可以实现直接打印 无需再次浏览
保存二维码 保存当前生成的二维码为图片
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:二维码.rar
此主题相关图片如下：qq图片20140725103704.jpg
[此贴子已经被作者于2014-7-25 10:48:28编辑过]
-- 发布时间：2014/7/25 11:04:00
--
试了一下，很麻烦，如果你要在webbrowser里面预览的话，你就得拼凑html代码生成xxx.htm文件。直接用doc.saveHtm格式有点不妥。
建议你这样做吧，用excel做个模板，去掉网格线什么的，先生成了报表，然后显示在webbrowser里面，相对来说你会熟悉一点。
-- 发布时间：2014/7/25 11:10:00
-- 回复：（有点甜）?试了一下，很麻烦，如果你要在...
有点甜老师 确实是
那保存二维码这个代码怎么写呢？
想实现和条形码生成器 点保存后一样的效果
此主题相关图片如下：qq图片20140725111106.jpg
[此贴子已经被作者于2014-7-25 11:11:41编辑过]
-- 发布时间：2014/7/25 11:17:00
--
这个很简单吧？直接save即可
bar.SaveImage(ProjectPath & "Images\\myimg.wmf")
-- 发布时间：2014/7/25 11:27:00
-- 回复：（有点甜） 这个很简单吧？直接save即可...
这个是在单个选定的情况下是没有问题的 但是在批量生成的模式下 如何批量保存呢？
-- 发布时间：2014/7/25 11:29:00
--
以下是引用李孝春在2014-7-25 11:27:00的发言：
这个是在单个选定的情况下是没有问题的 但是在批量生成的模式下 如何批量保存呢？
这个是在单个选定的情况下是没有问题的 但是在批量生成的模式下 如何批量保存呢？
保存的时候，根据每一行的_Identify命名即可，这样就不会有重复的名字了。然后把路径保存到第十列即可。
-- 发布时间：2014/7/25 15:02:00
-- 回复：（有点甜）以下是引用李孝春在2014-7-25 11:27:...
单个保存已经成功了
例子已经更新
烦请有点甜老师帮忙研究一下 批量生成并保存 谢谢
此主题相关图片如下：din635733289_1406271600217_955.jpg
[此贴子已经被作者于2014-7-25 17:01:03编辑过]
-- 发布时间：2014/7/25 15:12:00
--
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()
-- 发布时间：2014/7/25 17:01:00
-- 回复：（有点甜）Dim doc As New PrintDocDim rg As p...
谢谢有点甜老师
-- 发布时间：2014/7/25 17:31:00
-- 回复：（有点甜）Dim doc As New PrintDocDim rg As p...
二维码如果保存的信息 过多 是不是会影响扫码识别率哦！