Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code39 Bar.Code = "123456" Bar.BarWidth = 0.3 Bar.BarHeight = 8 Bar.Rotate = Barpro.Rotate.Degree90
Dim doc As New PrintDoc Dim rg As New prt.RenderGraphics bar.DrawOnCanvas(rg.Graphics,0,0,1) Doc.Body.Children.Add(rg) Doc.Preview()