如上图是在条码软件里面打印出来的样本，
纸张宽:30mm,高20mm, 正方型QRCode条码边长10mm，左边的”还料，柜号“为固定提示文本字符
----------以下是制作了一个按钮，输入的样本语句--------
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.BarRatio = 0.3
Bar.BarHeight = 20
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code = e.Form.Controls("BarCode").text '输入条码内容字符“G2-1-1"
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Doc.Preview()
---------------要达到我的目的，还不会操作格式代码---
请教，以上代码还需要如何修改？
才能达到，只要向bar.code传送相应条码字符，
能直接驱动打印机打印一枚上述格式条码
先谢谢专家！
[此贴子已经被作者于2018/2/1 21:05:07编辑过]
加好友 
发短信
Post By：2018/1/30 23:18:00 [只看该作者]
