标题：[原创]有关条形码

1楼

exonjee 发表于：2011/7/20 12:49:00

安装最新的foxtable版本，在命令窗口中运行帮助中的代码，出现报错，参数无效。

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

2楼

狐狸爸爸 发表于：2011/7/20 12:50:00

贴出代码

3楼

exonjee 发表于：2011/7/20 12:52:00

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    bar.Code = r("第一列")
    img = new prt.RenderImage
    img.Image = bar.GetImage
    Doc.Body.Children.Add(img)
Next
Doc.Preview()

4楼

czy 发表于：2011/7/20 13:00:00

第一列有空行

5楼

czy 发表于：2011/7/20 13:03:00

改成这样试试

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    If r.IsNull("第一列") = False Then
        bar.Code = r("第一列")
        img = new prt.RenderImage
        img.Image = bar.GetImage
        Doc.Body.Children.Add(img)
    End If
Next
Doc.Preview()

6楼

exonjee 发表于：2011/7/20 13:03:00

谢谢!可以了

共6 条记录, 每页显示 10 条, 页签: [1]