主题：专业报表

Dim doc As New PrintDoc

Dim rg As New prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.Code39

bar.Code = "12345678"

rg = new prt.RenderGraphics

bar.DrawOnCanvas(rg.Graphics,0,0,1)

Doc.Body.Children.Add(rg)

Doc.Preview()