Dim doc As New PrintDoc '定义一个报表
For r As Integer = 0 To 2
Dim ra As New prt.RenderArea
Dim rt As prt.RenderText
ra.Width = 70 '宽度53毫米
ra.Height = 29.5 '高度24毫米
ra.Style.Spacing.All = 0
ra.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
Doc.Body.ChildRen.Add(ra) '将容器加入到报表中
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar = New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
BAR.DisplayCode = False
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code = "12345678"
Bar.Text =("姓名") & " " & ("考号")
Bar.BarRatio = 6
Bar.BarHeight = 10
Bar.BarWidth = 0.5
Bar.TextAlignment = Barpro.Alignment.BelowCenter
Dim rm As New prt.RenderImage
rm.Image = Bar.GetImage
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Width = "Parent.Width" '宽度等于页面宽度
rm.y = 8
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center
ra.Children.Add(rm)
Next
doc.Preview() '预览
加好友 
发短信
Post By：2020/1/11 14:07:00 [显示全部帖子]
