主题：如何将二维码直接写入专业报表呢？

如何将二维码生成时不保存 直接写入专业报表

下述代码生成二维码后又导入专业报表中实现打印，识别效果不是很好！

 

Dim wb As WinForm.TextBox = e.Form.Controls("文本")
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = wb.text
Bar.QuietZoneWidth = 1
Bar.SaveImage("d:\123.bmp")

Dim doc As New PrintDoc() '定义一个报表
Dim Height As WinForm.TextBox = e.Form.Controls("高度")
Dim Width As WinForm.TextBox = e.Form.Controls("宽度")
doc.PageSetting.Width = Width.text '纸张宽度为100毫米
doc.PageSetting.Height = Height.text '纸张高度为120毫米

Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("d:\123.bmp") '设置图片
rm.X=1
rm.y=1
rm.Width = 10 '宽度等于页面宽度
rm.Height = 10 ''高度由图片大小自动决定

rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览

Dim doc As New PrintDoc() '定义一个报表
Dim dyj As WinForm.ComboBox = e.Form.Controls("打印机")  '定义打印机'
Dim xz As WinForm.CheckBox = e.Form.Controls("CheckBox1")  '定义打印或预览开关'
Dim Height As WinForm.TextBox = e.Form.Controls("高度")  '定义纸张高度'
Dim Width As WinForm.TextBox = e.Form.Controls("宽度")    '定义纸张宽度'
Dim tpHeight As WinForm.TextBox = e.Form.Controls("二维码高度")  '定义二维码高度'
Dim tpWidth As WinForm.TextBox = e.Form.Controls("二维码宽度")    '定义二维码宽度'
Dim tpjq As WinForm.TextBox = e.Form.Controls("二维码静区")    '定义二维码静区大小'
Dim wb As WinForm.TextBox = e.Form.Controls("文本")       '定义二维码的文本内容'
doc.PageSetting.Width = Width.text '纸张宽度
doc.PageSetting.Height = Height.text '纸张高度
Doc.PrinterName = dyj.text    '设定打印机为当前选择的打印机'
Dim X As WinForm.TextBox = e.Form.Controls("x")   '设定二维码显示的x位置'
Dim Y As WinForm.TextBox = e.Form.Controls("y")   '设定二维码显示的Y位置'
Dim tpgd As WinForm.TextBox = e.Form.Controls("图片高度")   '设定二维码显示高度'
Dim tpkd As WinForm.TextBox = e.Form.Controls("图片宽度")   '设定二维码显示宽度'
Dim img As prt.RenderImage   '定义一个图像'
Dim mlx As WinForm.TextBox = e.Form.Controls("码类型")    '定义纸张宽度'
Dim Bar As New BarCodeBuilder
Bar.Symbology = mlx.text
Bar.BarWidth = tpWidth.text
Bar.BarHeight = tpHeight.text
Bar.QuietZoneWidth = tpjq.text
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Bar.Code = wb.text
img = new prt.RenderImage
img.Image = bar.GetImage
img.X=X.text
img.y=y.text
img.Width = tpgd.text '宽度等于页面宽度
img.Height = tpkd.text ''高度由图片大小自动决定
Doc.Body.Children.Add(img)
If xz.Checked=True  Then
    doc.Print
Else
    doc.Preview()
End If

 

 

 

初步实现二维码生成  但是当二维码宽度和高度 图片宽度高度均=或小于12时候  扫码枪读不出来  但是手机能够读取二维码  有没有办法解决呢？

采用的是12mm的标签打印卷带

就是参照这个  然后做的第一楼的代码

此主题相关图片如下：11.png

附上项目  麻烦老师帮忙看看

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

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

如果汉字不能识别  能够识别英文和数字  需要调整哪里呢？