Dim rg As prt.RenderGraphics Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.QRCode For Each r As Row In Tables("表A").Rows bar.Code = r("第一列") rg = new prt.RenderGraphics bar.DrawOnCanvas(rg.Graphics,0,0,1) rg.Style.Spacing.All = 3 bar.SaveImage("d:\" & r("第一列") & ".jpg") Next
加好友 
发短信
Post By：2015/2/11 10:13:00 [只看该作者]
