专家坐堂-[求助]条码打印Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]条码打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66211)

--  作者：lwj396086371
--  发布时间：2015/4/1 10:59:00
--  [求助]条码打印

我的条码纸是65*25，一行只打印一个条码，现在我的“条码表”有三行数据，预览的时候只显示一行，代码如下：

Dim doc As New PrintDoc
doc.PageSetting.Width = 65 \'纸张宽度为65毫米
doc.PageSetting.Height = 25 \'纸张高度为25毫米
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Dim t As Table = Tables("条码") \'指定数据来源表
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row =t.Rows(i)
Bar.Code = r("条码")
Bar.HumanReadableText = r("生成条码")
Bar.CodeAlignment = Barpro.Alignment.BelowLeft
Bar.Font = New Font("Consolas",11)
Bar.BarWidth = 0.25
Bar.BarHeight = 10
Bar.Text = r("型号")
Bar.TextFont = New Font("OCR-B-Seagull",CSng(10.5),FontStyle.Bold)
Bar.TextAlignment = Barpro.Alignment.AboveLeft
Bar.TopMargin = 1
Bar.BottomMargin = 1
Bar.Code128CharSet = Barpro.Code128.B
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rg.x=9
rg.y=3
\'rg.Style.Spacing.All = 2
Doc.Body.Children.Add(rg)
Next
Doc.PrinterName = "TSC TTP-244 Pro"
\'\'Doc.print
Doc.Preview()

--  作者：有点甜
--  发布时间：2015/4/1 11:07:00
--
Dim doc As New PrintDoc
doc.PageSetting.Width = 65 \'纸张宽度为65毫米
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Dim t As Table = Tables("条码") \'指定数据来源表
Dim idx As Integer = 0
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row =t.Rows(i)
    Bar.Code = r("条码")
    Bar.HumanReadableText = r("生成条码")
    Bar.CodeAlignment = Barpro.Alignment.BelowLeft
    Bar.Font = New Font("Consolas",11)
    Bar.BarWidth = 0.25
    Bar.BarHeight = 10
    Bar.Text = r("型号")
    Bar.TextFont = New Font("OCR-B-Seagull",CSng(10.5),FontStyle.Bold)
    Bar.TextAlignment = Barpro.Alignment.AboveLeft
    Bar.TopMargin = 1
    Bar.BottomMargin = 1
    Bar.Code128CharSet = Barpro.Code128.B
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.x=9
    rg.y = 3 + 25*idx
    \'rg.Style.Spacing.All = 2
    Doc.Body.Children.Add(rg)
    idx += 1
Next
Doc.PrinterName = "TSC TTP-244 Pro"
\'\'Doc.print
Doc.Preview()

--  作者：lwj396086371
--  发布时间：2015/4/1 11:23:00
--
还是不行，只显示一个条码
此主题相关图片如下：条码.png

--  作者：有点甜
--  发布时间：2015/4/1 11:25:00
--

你的代码，是选中多少行，就打印多少个啊。

你用鼠标选中几行看效果。不然就改代码

Dim doc As New PrintDoc
doc.PageSetting.Width = 65 \'纸张宽度为65毫米
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Dim t As Table = Tables("条码") \'指定数据来源表
Dim idx As Integer = 0
For i As Integer = 0 To t.Rows.count - 1
    Dim r As Row =t.Rows(i)
    Bar.Code = r("条码")
    Bar.HumanReadableText = r("生成条码")
    Bar.CodeAlignment = Barpro.Alignment.BelowLeft
    Bar.Font = New Font("Consolas",11)
    Bar.BarWidth = 0.25
    Bar.BarHeight = 10
    Bar.Text = r("型号")
    Bar.TextFont = New Font("OCR-B-Seagull",CSng(10.5),FontStyle.Bold)
    Bar.TextAlignment = Barpro.Alignment.AboveLeft
    Bar.TopMargin = 1
    Bar.BottomMargin = 1
    Bar.Code128CharSet = Barpro.Code128.B
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.x=9
    rg.y = 3 + 25*idx
    \'rg.Style.Spacing.All = 2
    Doc.Body.Children.Add(rg)
    idx += 1
Next
Doc.PrinterName = "TSC TTP-244 Pro"
\'\'Doc.print
Doc.Preview()