以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]二维码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64339)
--  作者：鲁吉
--  发布时间：2015/2/11 13:55:00
--  [求助]二维码问题
求教各位老师，我做一个证件管理打印系统，要生成二维码（QRcode)并保存在数据表里，用专业报表打印证件时把生成的二维码打印到一个指定位置，看了很多帮助，试了N次都没成功，请问应该怎么解决啊？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:建筑业企业资质证书管理系统.table

[此贴子已经被作者于2015/2/11 13:57:23编辑过]
--  作者：Bin
--  发布时间：2015/2/11 14:16:00
--  
http://www.foxtable.com/help/topics/1181.htm


Dim doc As New PrintDoc \'定义一个报表对象
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = GetImage("EP1.BMP") \'设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
doc.Body.Children.Add(rm) \'将图片对象加入报表
Doc.Preview() \'预览

二维码

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = "123456"
Bar.BarWidth = 0.3
Bar.BarHeight = 8
Bar.SaveImage("c:\\data\\MyBar.jpg")


结合一下
--  作者：Bin
--  发布时间：2015/2/11 14:18:00
--  
Dim doc As New PrintDoc
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCODE
Bar.Code = "123456"
Bar.BarWidth = 0.3
Bar.BarHeight = 8
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
Doc.Preview()
--  作者：鲁吉
--  发布时间：2015/2/11 14:22:00
--  
看了，可是没弄明白，能不能针对我这个项目给写一下具体步骤？打开我的项目看看我错在哪里，或者帮我修改下。谢谢
[此贴子已经被作者于2015/2/11 14:24:15编辑过]
--  作者：Bin
--  发布时间：2015/2/11 14:23:00
--  
没明白你要生成怎么样的报表.你程序里也没代码.你也没说明.

你直接运行3楼的代码.  如果是你想要的.就直接套用你的代码即可
--  作者：鲁吉
--  发布时间：2015/2/11 14:26:00
--  

我想在打证的时候直接打上，就像打印证书上的其它内容那样，不想打完后再单独打印二维码

 

联系我：QQ 451628902

[此贴子已经被作者于2015/2/11 14:31:04编辑过]
--  作者：Bin
--  发布时间：2015/2/11 14:31:00
--  
.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:建筑业企业资质证书管理系统.table
--  作者：鲁吉
--  发布时间：2015/2/11 14:41:00
--  

能告诉我在哪修改的吗？我把它放在原来的文件夹里，效果没变化，放在其他位置可以看到有二维码，但效果并不是我想要的，前面还多了一个空白页。

 我是要在点“打印正本”按钮时生成打印效果的。

[此贴子已经被作者于2015/2/11 14:43:37编辑过]
--  作者：有点甜
--  发布时间：2015/2/11 14:45:00
--  
 就是加入一个打印条形码的内容而已啊。去部分内容写到你的报表按钮里面即可啊
--  作者：鲁吉
--  发布时间：2015/2/11 14:54:00
--  
我太菜了，硬是没弄懂，加我QQ451628902，远程帮我吧！！