| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 批量打印QRcode标签，如何把二维码加入到代码中来？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101280) |
| -- 作者：ycwk -- 发布时间：2017/5/27 15:57:00 -- 批量打印QRcode标签，如何把二维码加入到代码中来？ 问题是如果用以下的方法如何把二维码加入标签呢？ 有没有更好的办法？ Dim doc As New PrintDoc \'定义一个报表 Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight Dim ra As New prt.RenderArea Dim rt As prt.RenderText ra.Width = 40 \'设置标签宽度 ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never \'禁止水平分割 ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'禁止垂直分割 ra.Style.Spacing.Right = 2 \'设置标签之间的所有和上下间隔为2毫米 ra.Style.Spacing.Bottom = 2 ra.Style.Padding.All = 1 \' 标签内容距离边框为1毫米 ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) \'设置边框 ra.DataBinding.DataSource = BindTables("科室信息化联络员表") \'将容器绑定到员工表 Doc.Body.ChildRen.Add(ra) \'将容器加入到报表中 rt = New prt.RenderText rt.Text = "部门分类:[Fields!部门分类.Value]" ra.Children.Add(rt) \'添加到容器中 rt = New prt.RenderText rt.Text = "科室_学科:[Fields!科室_学科.Value]" ra.Children.Add(rt) \'添加到容器中 rt = New prt.RenderText rt.Text = "科室_明细:[Fields!科室_明细.Value]" ra.Children.Add(rt) \'添加到容器中 rt = New prt.RenderText rt.Text = "科室_电话:[Fields!科室_电话.Value]" ra.Children.Add(rt) \'添加到容器中 Doc.Preview() \'预览报表
|
| -- 作者：有点蓝 -- 发布时间：2017/5/27 17:11:00 -- 不能绑定，参考用法 Dim doc As New PrintDoc \'定义一个报表 Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.QRCode Dim rg As prt.RenderGraphics doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式 For i As Integer = 1 To 10 Dim rt As New prt.RenderTable() \'定义一个表格对象 rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型 rt.Width = 50 \'表格宽度为50mm rt.Style.Spacing.All = 2 \'和其他对象之间的间隔为2mm rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'避免垂直换页的时候,表格被分割成两部分. rt.Cols(0).Width = 20 rt.cells(0,0).Text = "姓名" rt.Cells(0,1).Text = "黄财德" rt.Cells(1,0).Text = "职务" rt.Cells(1,1).Text = "总经理" rt.Cells(2,0).Text= "工号" rt.cells(2,1).Text = "44081996008" rt.cells(3,0).SpanCols = 2 bar.Code = "44081996008" rg = new prt.RenderGraphics bar.DrawOnCanvas(rg.Graphics,0,0,1) rg.Style.Spacing.All = 3 Dim ra = rt.Cells(3,0).Area ra.Children.Add(rg) doc.Body.Children.Add(rt) \'将表格对象加入到报表中 Next Doc.Preview() \'预览报表 |