Dim doc As New PrintDoc Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 For Each r As Row In Tables("quhuojilu").Rows bar.Code = r("取货商品名") Bar.QuietZoneWidth = 2 Bar.SaveImage("images\myimg.wmf") Next Doc.Preview() 此主题相关图片如下:捕获.png