主题：[求助]

帮助写得很清楚

Dim doc As New PrintDoc
Dim rbc As New prt.RenderBarCode()
rbc.Height = 25
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "123456"
rbc.ShowText = True
doc.Body.Children.Add(rbc)
Doc.Preview()