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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何把窗口里条码控件按其参数打印出来？

共有3320人关注过本帖树形打印复制链接主题：[求助]如何把窗口里条码控件按其参数打印出来？

新福星

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00

[求助]如何把窗口里条码控件按其参数打印出来？ 发帖心情

Post By：2019/12/4 12:06:00 [显示全部帖子]

一个窗体。上面有一个BarCode1控件。通过控件参数对其进行一些设置比如长高等等，并在窗体显示出来了。

现在需要按照设置的参数打印出来。如何实现？看帮助里不知道如何继承原来条码的参数。程序见下图。谢谢

此主题相关图片如下：微信图片_20191204115904.png

新福星

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00

Post By：2019/12/4 14:00:00 [显示全部帖子]

这段教材里面说的是把条码形成图片，而不是打印出来。

新福星

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00

Post By：2019/12/4 15:19: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()

这是一段打印条码的代码M。在窗口里的BarCode1控件通过设置显示出条码。现在想通过打印程序M，打印出和BarCode1里参数一样的条码。比如说明字体的大小，条码高度等等

当然也是可以在代码M里设置。好像在这里设置有些参数设置的方法没有找到。比如说明字体大小，文本字体的大小等等。既然没找到就想先把BarCode1参数设置好，然后把设置好的参数转到代码M里。

不知道说清楚没？

下一主题 >> << 上一主题

主题：[求助]如何把窗口里条码控件按其参数打印出来？