Dim Bar As New BarCodeBuilder
Bar.Symbology =
Barpro.Symbology.Code39
bar.AddCheckSum = True
Bar.Code =
CurRow("BoxID")
Bar.BarHeight = 10
Bar.QuietZoneWidth = 1
Bar.DisplayChecksum = False
Bar.CodeAlignment =
Barpro.Alignment.AboveCenter
Bar.DisplayCode = False
Bar.Text =
Format(CurRow("DeliveryTime"),"g")
Bar.TextAlignment =
Barpro.Alignment.BelowCenter
BAR.SaveImage("Images\\bar.png",300)

此主题相关图片如下:读码结果.jpg
