Dim doc As New PrintDoc doc.PageSetting.Width = 65 '纸张宽度为65毫米 Dim rg As New prt.RenderGraphics Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 Dim t As Table = Tables("条码") '指定数据来源表 Dim idx As Integer = 0 For i As Integer = t.TopPosition To t.BottomPosition Dim r As Row =t.Rows(i) Bar.Code = r("条码") Bar.HumanReadableText = r("生成条码") Bar.CodeAlignment = Barpro.Alignment.BelowLeft Bar.Font = New Font("Consolas",11) Bar.BarWidth = 0.25 Bar.BarHeight = 10 Bar.Text = r("型号") Bar.TextFont = New Font("OCR-B-Seagull",CSng(10.5),FontStyle.Bold) Bar.TextAlignment = Barpro.Alignment.AboveLeft Bar.TopMargin = 1 Bar.BottomMargin = 1 Bar.Code128CharSet = Barpro.Code128.B rg = new prt.RenderGraphics bar.DrawOnCanvas(rg.Graphics,0,0,1) rg.x=9 rg.y = 3 + 25*idx 'rg.Style.Spacing.All = 2 Doc.Body.Children.Add(rg) idx += 1 Next Doc.PrinterName = "TSC TTP-244 Pro" ''Doc.print Doc.Preview()
|