首先在Barcode控件属性里选择你要的打印的条形码类型，是选EAN-13，还是选其它。 看传上的图片。
然后在按钮中添加如下代码：
Sub Command1_Click()
Me.BarCodeCtrl1.Value = trim(Me.Textbox1.text)
End sub
