Dim 公司代码 As String=e.Form.Controls("txb_前缀文本").value
Dim 编号类型 As String=e.Form.Controls("dpb_编号类型").value
Dim 出厂日期 As Date=e.Form.Controls("dtp_出厂日期").value
Dim doc As New PrintDoc
Dim Bar As New BarCodeBuilder
doc.PrinterName="ZDesigner GT800 (EPL) -2#"
doc.PageSetting.Height=12
doc.PageSetting.Width=40
doc.PageSetting.BottomMargin=0
doc.PageSetting.TopMargin=0
doc.PageSetting.RightMargin=0
doc.PageSetting.LeftMargin=0
doc.PageSetting.Landscape=True
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.QuietZoneWidth =2 '0.4
Bar.Symbology = Barpro.Symbology.QRCode
'bar.CodeAlignment = Barpro.Alignment.Belowleft
MessageBox.Show(Tables(e.Form.name & "_tab_1").GetCheckedRows.count)
For Each r As Row In Tables(e.Form.name & "_tab_1").GetCheckedRows
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.Style.GridLines.All = New prt.Linedef(Color.white) '将表格的颜色设为深灰色
rt.X=0
rt.Y=0
rt.Rows.Count = 1 '设置行数
rt.Cols.Count = 2 '设置列数
rt.Width = 40 '设置表格的宽度
rt.Height = 12 '设置表格的高度
rt.Rows(0).Height=12
rt.cols(0).width=15
rt.cells(0,1).Style.Font=New Font("Times New Roman", 7, FontStyle.Bold) '设置字体
rt.cells(0,0).Style.TextAlignHorz=prt.AlignHorzEnum.left
Dim rg As New prt.RenderGraphics
'Dim r As Row=Tables(e.Form.name & "_tab_1").Rows(0)
bar.code=r("打印列")
MessageBox.show(r("打印列"))
bar.DrawOnCanvas(rg.Graphics,0,0,0.25)
rt.Cells(0,0).RenderObject = rg '将单元格内容设置为图片对象rm
rt.cells(0,1).text=公司代码 & "-" & 编号类型 & vbcrlf & Format(出厂日期,"yyyyMMdd") & "-" & r("流水号")
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Next
doc.Preview
加好友 
发短信
Post By：2015/7/8 9:14:00 [显示全部帖子]
此主题相关图片如下：qq截图20150708091224.png
