Dim rws As List(of Row)=Tables("CX订单唯一码_工单明细_数字编码").GetCheckedRows
Dim doc As New PrintDoc
Dim rbc(1000)
Dim rx As prt.RenderText
Dim i,j As Integer
Dim y As Integer
Dim rm As prt.RenderEmpty '定一个空对象
'messagebox.show(1)
For Each rw As Row In rws
rbc(i) =New prt.RenderBarCode()
rbc(i).Height = 25
rbc(i).BarCodeType = BarCodeEnum.Code39
rbc(i).BarDirection = BarDirectionEnum.Normal
rbc(i).Text = rw("数字编码")
rbc(i).ShowText = True
doc.Body.Children.Add(rbc(i))
rx = new prt.RenderText
rx.Text = rw("唯一码")
rx.x = 100
rx.y = rbc(i).y
'rx.y=rx.y-10
rx.Style.Font=New Font("宋体", 20, FontStyle.Bold)
doc.body.Children.Add(rx)
rbc(i+1) =New prt.RenderBarCode()
rbc(i+1).Height = 12
rbc(i+1).BarCodeType = BarCodeEnum.Code39
rbc(i+1).BarDirection = BarDirectionEnum.Normal
rbc(i+1).Text = ""
rbc(i+1).ShowText = False
doc.Body.Children.Add(rbc(i+1))
i=i+2
j=j+1
If i Mod 12=1 Then j=0
Next rw
Doc.PageSetting.PaperKind=11
Doc.Preview()
加好友 
发短信
Post By：2022/1/6 15:09:00 [显示全部帖子]
需要往上移一下
想往上移一点，移不动