要说多少次?怎样改都不行,内容越多,条码越长,要么减少内容,要么增加纸张宽度
Dim doc As New PrintDoc
'doc.PrinterName="ZDesigner GT800 (EPL)"
doc.PageSetting.Height=12 '如果这款标签过小,实在放不下这么长的文本另外一款标签:30(高)*60(宽)
doc.PageSetting.Width=100
doc.PageSetting.BottomMargin=0
doc.PageSetting.TopMargin=0
doc.PageSetting.RightMargin=0
doc.PageSetting.LeftMargin=0
doc.PageSetting.Landscape=True
Dim bar As new BarCodeBuilder
bar.code="9-1|64-20150908-10|12"
bar.BarWidth = 0.23
bar.BarRatio = 2
bar.BarHeight = 5
bar.QuietZoneWidth = 1
bar.Symbology = Barpro.Symbology.code128
bar.AddCheckSum = False
bar.DisplayChecksum=False
bar.DisplayStartStopChar=False
bar.Font = New Font("Cambria",9,FontStyle.Bold)
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) '将表格的颜色设为深灰色
rt.Rows.Count = 3 '设置行数
rt.Cols.Count = 1 '设置列数
rt.Width = 100 '设置表格的宽度
rt.Height = 40 '设置表格的高度
Dim rg As New prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rt.Cells(0,0).RenderObject = rg '将单元格内容设置为图片对象rm
doc.Body.Children.Add(rt) '将表格对象加入到报表中
doc.Preview