以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何指定条码的打印位置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169731) |
-- 作者:9EQ98 -- 发布时间:2021/6/28 14:20:00 -- 如何指定条码的打印位置 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 \' 请问:以上代码,如何实现指定条码在报表中的打印位置 |
-- 作者:有点蓝 -- 发布时间:2021/6/28 14:27:00 -- …… rg = new prt.RenderGraphics rg.X = 55 \'水平位置 rg.Y = 0 \'垂直位置 |