Dim doc As New PrintDoc
doc.PageSetting.Width = 60 \'标签宽
doc.PageSetting.Height = 40 \'标签高
Doc.PageSetting.LeftMargin = 2 ’标签框架左边距
Doc.PageSetting.TopMargin = 2 \'标签框架上边距

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

Dim ra As New prt.RenderArea
Dim rt As prt.RenderText
ra.Width = 56 ’标签框架宽
ra.Height =36 \'标签框架高
ra.Style.Spacing.All = 1
ra.Style.Borders.All = New prt.Linedef(0.3, Color.black)
ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never
ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never
Doc.Body.ChildRen.Add(ra)

rt = New prt.RenderText
rt.Text = "名称: " & Tables("药材资料").current("名称")
rt.X = 2
rt.Y = 2
ra.Children.Add(rt)

rt = New prt.RenderText
rt.Text = "单位: " & Tables("药材资料").current("商品单位")
rt.X = 2
rt.Y = "Prev.Bottom + 2"
ra.Children.Add(rt)

rt = New prt.RenderText
rt.Text = "SN: "
rt.X = 2
rt.Y = "Prev.Bottom + 2"
ra.Children.Add(rt)
Dim rpar As New prt.RenderParagraph()
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128 ’条码规则
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code = Tables("药材资料").current("条码")
img = new prt.RenderImage
  img.Image = bar.GetImage
Dim rm As New prt.RenderImage \'定义一个条码图片对象
rm.Image =bar.getimage \'设置条码图片
rm.Width = "Parent.Width" \'宽度等于页面宽度
rm.Height = "Auto" \'高度由条码图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False \'禁止条码图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'水平居中
rm.X=2
rm.y="Prev.Bottom + 2"
ra.Children.Add(rm)
Doc.Preview()