主题：[求助] 条码打印问题

你好，版主，以下代码打印出来的条码，单独打在一张标签上了，如附上的图。如何让它接在相应的标签内容最底下，不要单独生成一张新的标签。谢谢。

 

Dim count As Integer = 1
If InputValue(count, "提示", "打印多少次?") Then
If count < = 100 Then
Dim doc  As New PrintDoc
doc.PageSetting.Width = 69  '
doc.PageSetting.Height = 42
Doc.PageSetting.LeftMargin = 3
Doc.PageSetting.TopMargin = 3
Doc.PageSetting.RightMargin = 0
Dim t As Table = e.form.controls("Table1").Table

For j As Integer = 1 To count

For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.Rows(i)
    r("printtimes") = count
    r("printtime") = now ()
   

    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim rt1 As New prt.RenderText
    rt1.Style.FontBold = True
    rt.Style.FontSize = 10
    rt.Rows(0).Height = 6
    rt.Rows(1).Height = 6
    rt.Rows(2).Height = 6
    rt.Rows(3).Height = 6

    rt.Style.Spacing.bottom = 3
    rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
    rt.Cols(0).Width = 30
    rt.Cols(1).Width = 35
    rt.cells(0,0).Text = "Customer:"
    rt.Cells(0,1).Text = r("EndCustomer")
    rt.Cells(1,0).Text= "Part No.:"
    rt.Cells(1,0).Style.WordWrap = False
    rt.cells(1,1).Text = r("PartNo")
    rt.Cells(2,0).Text= "GSS Part No.:"
    rt.cells(2,1).Text = r("GSSPart")
    rt.Cells(3,0).Text= "Qty:"
    rt.cells(3,1).Text = r("OpenQty")& "  PCS"
  doc.Body.Children.Add(rt) '将表格对象加入到报表中

 Dim  rg As  New  prt.RenderGraphics
 Dim  Bar As  New   BarCodeBuilder
 Bar.Symbology =   Barpro.Symbology.Code128
 bar.Code = r("PartNo")
 rg =  new  prt.RenderGraphics
 bar.DrawOnCanvas(rg.Graphics,0,0,1)
 Doc.Body.Children.Add(rg)

Next

Next

doc.Preview()

此主题相关图片如下：捕获.png

并且条码长度加长一下，高度大一点，置标签中间。谢谢。

你的条码，可以也放在表格里面吧？参考

 

http://www.foxtable.com/webhelp/scr/1220.htm

 

http://www.foxtable.com/webhelp/scr/1208.htm

 

 

版主，我把那个黄色的放到最后，执行后还是有点问题，不可以打在一张，可以帮忙看一下吗？ 谢谢。

 

 

Dim count As Integer = 1
If InputValue(count, "提示", "打印多少次?") Then
If count < = 100 Then
Dim doc  As New PrintDoc
doc.PageSetting.Width = 69  '
doc.PageSetting.Height = 42
Doc.PageSetting.LeftMargin = 3
Doc.PageSetting.TopMargin = 3
Doc.PageSetting.RightMargin = 0
Dim t As Table = e.form.controls("Table1").Table

For j As Integer = 1 To count

For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.Rows(i)
    r("printtimes") = count
    r("printtime") = now ()
   

    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim rt1 As New prt.RenderText
    rt1.Style.FontBold = True
    rt.Style.FontSize = 10
    rt.Rows(0).Height = 6
    rt.Rows(1).Height = 6
    rt.Rows(2).Height = 6
    rt.Rows(3).Height = 6

    rt.Style.Spacing.bottom = 3
    rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
    rt.Cols(0).Width = 30
    rt.Cols(1).Width = 35
    rt.cells(0,0).Text = "Customer:"
    rt.Cells(0,1).Text = r("EndCustomer")
    rt.Cells(1,0).Text= "Part No.:"
    rt.Cells(1,0).Style.WordWrap = False
    rt.cells(1,1).Text = r("PartNo")
    rt.Cells(2,0).Text= "GSS Part No.:"
    rt.cells(2,1).Text = r("GSSPart")
    rt.Cells(3,0).Text= "Qty:"
    rt.cells(3,1).Text = r("OpenQty")& "  PCS"

 Dim  rg As  New  prt.RenderGraphics
 Dim  Bar As  New   BarCodeBuilder
 Bar.Symbology =   Barpro.Symbology.Code128
 bar.Code = r("PartNo")
 rg =  new  prt.RenderGraphics
 bar.DrawOnCanvas(rg.Graphics,0,0,1)
 Doc.Body.Children.Add(rg)

  doc.Body.Children.Add(rt) '将表格对象加入到报表中
Next

 

doc.Preview()

……

非常感谢。 这个条码的长度如何调整，如何再下降一行并居中 ？ 谢谢。

设置行高：http://www.foxtable.com/webhelp/scr/1204.htm

 

版主，加了以下，还有不对，能帮忙改一下吗？麻烦了。

rt.Rows.Count = 7
rg.Height = 9
rg.width = 25

此主题相关图片如下：捕获.jpg

设置不同宽度看效果呀。