最近设计了个项目，需要将商品资料表的条码号和零售价生成商品条码标签，并打印出来，打印的时候，要求可以手动输入需打印条码标签数量，和手动选择打印机，条码纸是固定的，一行可以打印三个标签。请帮我看下，我项目的代码要怎么修改才能实现，我研究了几个晚上，看了很多帮助还是不行。请指教啦。。。。。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:选定行输出条码打印功能.table

Dim txt1 As String = e.Form.Controls("TextBox1").Text
Dim cmb1 As String = e.Form.Controls("ComboBox1").Text

Dim  doc As  New PrintDoc
Dim  rg As  prt.RenderGraphics
Dim  Bar As  New BarCodeBuilder
Bar.Symbology =   Barpro.Symbology.Code128
Bar.BarWidth = 0.25  \'窄条宽度
Bar.BarRatio = 2.3 \'设定宽窄比例
Bar.BarHeight = 5 \'设定条码高度
Bar.QuietZoneWidth = 2  \'静区宽度

Dim t As Table =  Tables("商品资料")
Dim ra As prt.RenderArea
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    For j As Integer = 0 To val(txt1) - 1
        If j Mod 3 = 0 Then
            ra = new prt.RenderArea
            Doc.Body.Children.Add(ra)
        End If      
        bar.Code =  r("条码号")
        Bar.QuietZoneWidth = 2
        Bar.CodeAlignment = Barpro.Alignment.BelowJustify
        Bar.Text = "BOBOYA ￥" &  r("零售价") & "元" \'条码上方文本说明
        Bar.TextAlignment = Barpro.Alignment.AboveLeft
        rg =  new  prt.RenderGraphics
        bar.DrawOnCanvas(rg.Graphics,0,0,1)
        rg.Style.Spacing.All =  3
        ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight
        ra.Children.Add(rg)
    Next  
Next
Doc.PrinterName = cmb1
Doc.Preview() \'打印预览

谢谢有点甜，喷墨打印机上测试好用，但在有碳带的专业条码打印机上打印不出来，是什么原因呢

还有排版方面有点问题，打出的条码老不在完整的排在条码纸上，能调整相邻条码的左右间距和上下间距吗。

 可以，参考边距的设置

http://www.foxtable.com/help/topics/1173.htm

http://www.foxtable.com/help/topics/1178.htm

 平时你的【专业条码打印机】使用正常吗？

 你选择打印机的时候，选择正确吗？

现在能打印了，可能是刚才是超出了页面打印范围，

单现在打印出来的是竖着的，在帮我看下是的代码有问题

现在我修改后的代码是这样的

Dim txt1 As String = e.Form.Controls("TextBox1").Text   \'定义变量,用于手动输入打印数量
Dim cmb1 As String = e.Form.Controls("ComboBox1").Text  \'定义变量,用于手动选择打印机

Dim  doc As  New PrintDoc
doc.PageSetting.Width = 105  \'纸张宽度为200毫米
\'doc.PageSetting.Height = 170  \'纸张高度为170毫米
DoC.PageSetting.LeftMargin = 2  \'设置左侧边距为2毫米
DoC.PageSetting.RightMargin = 2  \'设置右侧边距为2毫米
DoC.PageSetting.TopMargin = 2  \'设置顶部边距为2毫米
doc.PageSetting.Landscape = False  \'禁止横向打印
\'doc.AutoRotate = False  \'如果纸张的宽度超过高度,要加上这行代码
Dim  rg As  prt.RenderGraphics
Dim  Bar As  New BarCodeBuilder
Bar.Symbology =   Barpro.Symbology.Code128
Bar.BarWidth = 0.25  \'窄条宽度
Bar.BarRatio = 2.3 \'设定宽窄比例
Bar.BarHeight = 5 \'设定条码高度
Bar.QuietZoneWidth = 2  \'静区宽度

Dim t As Table =  Tables("ShangPinXiangXiZiLiao") \'指定数据来源表
Dim ra As prt.RenderArea
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    For j As Integer = 0 To val(txt1) - 1 \'指定每行打印数量
        If j Mod 3 = 0 Then
            ra = new prt.RenderArea
            Doc.Body.Children.Add(ra)
        End If      
        bar.Code =  r("ShangPinXiangXiZiLiao_ShangPinHuoHao") \'指定条码数据来源列
        Bar.QuietZoneWidth = 2
        Bar.CodeAlignment = Barpro.Alignment.BelowJustify
        Bar.Text = "BOBOYA ￥" &  r("ShangPinXiangXiZiLiao_LingShouJia") & "元" \'指定条码上方文本说明
        Bar.TextAlignment = Barpro.Alignment.AboveLeft
        rg =  new  prt.RenderGraphics
        bar.DrawOnCanvas(rg.Graphics,0,0,1)
\'        rg.Style.Spacing.All = 1
        ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight 
        ra.Style.TextAlignHorz = prt.AlignVertEnum.Center \'prt.AlignHorzEnum.Center
        ra.Style.Spacing.Bottom = 2  \'设置下间隔为3毫米
        ra.Style.Spacing.Right  = 5  \'设置右间间隔毫米
        ra.Style.Spacing.Left = 3 \'左边距
        ra.Children.Add(rg)
    Next  
Next
Doc.PrinterName = cmb1 \'指定打印机
\'Doc.Preview() \'打印预览
Doc.Print \'直接打印

此主题相关图片如下：20140925_1920391.jpg

上面是想要实现的效果，下面是现在的效果

http://www.foxtable.com/help/topics/1190.htm

http://www.foxtable.com/help/topics/2904.htm