Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 94 '纸张宽度为101.6毫米
doc.PageSetting.Height = 12 '纸张高度为16毫米
doc.PageSetting.RightMargin = 2 '右边距离
doc.PageSetting.BottomMargin = 2 '底边距离
doc.PageSetting.LeftMargin = 2 '左边距离
doc.PageSetting.TopMargin = 2 '顶边距离
'doc.PageSetting.Landscape = False '是否横向打印
'doc.AutoRotate = True '
Dim rg As New prt.RenderGraphics
Dim Bar1 As New BarCodeBuilder
Bar1.Symbology = Barpro.Symbology.Code128
bar1.Code = 条形码
Bar1.DisplayCode = True
Bar.BarWidth = 0.2642 ' 单条的宽度 默认:0.2642
Bar.BarRatio = 2.0 ' 宽窄比例 默认:2
Bar.BarHeight = 5.08 ' 高度 默认:5.08
Bar.Font = New Font("宋体",16)
rg.X = 55 '水平位置
rg.Y = 0 '垂直位置
rg = new prt.RenderGraphics
bar1.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
Doc.Print
' 请问：以上代码，如何实现指定条码在报表中的打印位置
加好友 
发短信
Post By：2021/6/28 14:20:00 [只看该作者]
