代码是这样的
Dim Bar As New BarCodeBuilder
Dim rm As New prt.RenderImage
Bar.Symbology = Barpro.Symbology.Code128
Bar.Code = billnoid
'Bar.BarWidth = 8
'Bar.BarHeight = 5
bar.AddCheckSum = False
bar.DisplayCode = False
'bar.SaveImage(ProjectPath & "Images\myimg.wmf",300)
rm.Image = Bar.GetImage(300)
doc.Body.Children.Add(rtt)
rtt = New prt.RenderText
rtt.Text = "采购订单"
rtt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rtt.Style.FontBold = True
rtt.Style.FontSize = 20
doc.Body.Children.Add(rtt)