-- 作者:jinzhengbe
-- 发布时间:2012/5/29 17:59:00
-- 这个是什么意思?
代码如下,设计批量打印条码的时候出现的。
Dim doc As New PrintDoc Dim img As prt.RenderImage Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 Bar.BarRatio = 0.3 Bar.BarHeight = 8 bar.SaveImage(ProjectPath & "Images\\BarCode.gif",300) Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight For Each r As Row In Tables("quhuojilu").Rows bar.Code = r("取货商品名") img = new prt.RenderImage img.Image = bar.GetImage Doc.Body.Children.Add(img) Next Doc.Preview() 此主题相关图片如下:捕获.png
|