Dim FSDoc As new PrintDoc Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 Bar.Code = "YYWW0001001" Bar.BarWidth = 0.5 Bar.BarRatio = 1 Bar.BarHeight = 12 Bar.QuietZoneWidth = 1 Bar.DisplayCode = False 'Bar.SaveImage(ProjectPath & "\Images\TEMP.jpg", 600) '载入条码 Dim BarCode As New prt.RenderImage BarCode.Image = bar.GetImage BarCode.Style.Borders.All = New prt.Linedef(0, Color.White) BarCode.X = 50 BarCode.Y = 50 FSDoc.Body.Children.Add(BarCode) FSDoc.Preview
|