条码打印，应该如何下手

ynchenlong 2010-05-12 02:56:27

最近，想用VB写一个条码打印的小程序，可我从来没接触过条码打印机，问是否跟其它打印机一样使用Prent对象打印图形可以了吗，还是有其它方法？
建了个QQ群17427390，交流交流。

...全文

327 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

solen82 2011-02-08

打赏
举报

office 中有 Microsoft Access Barcode Control
文件名叫 MSbcode9.ocx 什么的可以用

k19910401 2011-02-06

打赏
举报

果然厉害！确实不错。。。

cnuser1 2010-10-14

打赏
举报

这个帖子这么久了，还没有结果吗？楼主这种学习态度不行。

duoyiwen 2010-10-09

打赏
举报

很强大的哦,学习中

CHRL 2010-09-24

打赏
举报

其實就跟一般的打印機就一個樣,我就是用一個報表控件再加一個微軟的barcode 控件,就可以打呀

philco 2010-09-23

打赏
举报

建议调用条码字体比较简单！

geniusflly 2010-09-03

打赏
举报

我这是用的2个办法
1.如果条码打印机有串口通信，则直接编写串口通信程序，指令控制条码打印机。
2.特别复杂的条码，就要使用第三方软件，感觉最好的就是有个名叫海鸥的软件。
搜一下，这个有试用版，主流的条码打印机都支持了。方便的很。

游子 2010-09-02

打赏
举报

斑马是美国的。。。不是德国的。。

seeQe 2010-09-01

打赏
举报

很强大的哦,学习中

macrottian 2010-08-25

打赏
举报

codesoft
安装后，在安装目录下有Sample
里面有VB的示例，很详细、很简单

cqq_chen 2010-08-19

打赏
举报

方向错了!
其实条码打印机都支持数据库联接，这个懂了，其它就很简单了...

cnuser1 2010-08-12

打赏
举报

不要着急，现在很多工厂使用的德国斑马、台湾TSC等条形码打印机，原厂也有提供了很成熟的条形码编辑软件，不过他们也提供了相应的DLL开发文件（好处是，很多参数都可以自己设置，效果非常不错）。
以TSC TTP 244M PLUS 打印机为例：
Option Explicit
Public Declare Sub openport Lib "c:\windows\system\tsclib.dll" (ByVal PrinterName As String)
Public Declare Sub closeport Lib "c:\windows\system\tsclib.dll" ()
Public Declare Sub sendcommand Lib "c:\windows\system\tsclib.dll" (ByVal command As String)
Public Declare Sub setup Lib "c:\windows\system\tsclib.dll" (ByVal LabelWidth As String, ByVal LabelHeight As String, ByVal Speed As String, ByVal Density As String, ByVal Sensor As String, ByVal Vertical As String, ByVal OffSet As String)
Public Declare Sub downloadpcx Lib "c:\windows\system\tsclib.dll" (ByVal Filename As String, ByVal ImageName As String)
Public Declare Sub barcode Lib "c:\windows\system\tsclib.dll" (ByVal X As String, ByVal Y As String, ByVal CodeType As String, ByVal Height As String, ByVal Readable As String, ByVal rotation As String, ByVal Narrow As String, ByVal Wide As String, ByVal Code As String)
Public Declare Sub printerfont Lib "c:\windows\system\tsclib.dll" (ByVal X As String, ByVal Y As String, ByVal FontName As String, ByVal rotation As String, ByVal Xmul As String, ByVal Ymul As String, ByVal Content As String)
Public Declare Sub clearbuffer Lib "c:\windows\system\tsclib.dll" ()
Public Declare Sub printlabel Lib "c:\windows\system\tsclib.dll" (ByVal NumberOfSet As String, ByVal NumberOfCopy As String)
Public Declare Sub formfeed Lib "c:\windows\system\tsclib.dll" ()
Public Declare Sub nobackfeed Lib "c:\windows\system\tsclib.dll" ()
Public Declare Sub windowsfont Lib "c:\windows\system\tsclib.dll" (ByVal X As Integer, ByVal Y As Integer, ByVal fontheight As Integer, ByVal rotation As Integer, ByVal fontstyle As Integer, ByVal fontunderline As Integer, ByVal FaceName As String, ByVal TextContent As String)

’申明后，就可以直接调用原厂提供的DLL封装好的方法

Private Sub PrintLable3()
'首选之打印模式

On Error GoTo eNext:

If Len(Trim(CopiesTxt.Text)) >= 1 And Len(Trim(gl_PRINT_LB_SET)) >= 1 Then

'Call clearbuffer

Call openport(gl_OPENPORT)
'Call setup(gl_SETUP_LB_WIDTH, gl_SETUP_LB_HEIGHT, gl_SETUP_LB_SPEED, gl_SETUP_LB_DEPTH, gl_SETUP_LB_SENSOR_TYPE, gl_SETUP_LB_GAP, gl_SETUP_LB_GAP2)
' MsgBox gl_SETUP_LB_SENSOR_TYPE
' Exit Sub
Call setup(gl_SETUP_LB_WIDTH, gl_SETUP_LB_HEIGHT, gl_SETUP_LB_SPEED, gl_SETUP_LB_DEPTH, gl_SETUP_LB_SENSOR_TYPE, gl_SETUP_LB_GAP, gl_SETUP_LB_GAP2)
Call clearbuffer
Call barcode(gl_BC_X_COORDINATE, gl_BC_Y_COORDINATE, gl_BC_TYPE, gl_BC_HEIGHT, gl_BC_IS_BARCODE_TEXT, gl_BC_DEGREE, gl_BC_SCALING_FACTOR, gl_BC_SCALING_FACTOR2, Trim(sNumbertext.Text))
'Call barcode("90", "20", "39", "45", "0", "0", "2", "4", Trim(sNumbertext.Text))
'Call printerfont("30", "90", "1", "0", "1", "1", "123456789")

Call windowsfont(CInt(gl_WIN_FONT_S_X_COORDINATE), CInt(gl_WIN_FONT_S_Y_COORDINATE), CInt(gl_WIN_FONT_S_HEIGHT), CInt(gl_WIN_FONT_S_DEGREE), CInt(gl_WIN_FONT_S_STYLE), CInt(gl_WIN_FONT_S_BASE_LINE), gl_WIN_FONT_S_TYPE, Trim(frmPrintLabelsMain.fgLotno.Text))
'Call windowsfont(90, 65, 25, 0, 0, 0, "Arial", Trim(frmMain.fgLotno.Text))

Call windowsfont(CInt(gl_WIN_FONT_LOT_X_COORDINATE), CInt(gl_WIN_FONT_LOT_Y_COORDINATE), CInt(gl_WIN_FONT_LOT_HEIGHT), CInt(gl_WIN_FONT_LOT_DEGREE), CInt(gl_WIN_FONT_LOT_STYLE), CInt(gl_WIN_FONT_LOT_BASE_LINE), gl_WIN_FONT_LOT_TYPE, Trim(sNumbertext.Text))
'Call windowsfont(270, 65, 25, 0, 0, 0, "Arial", Trim(sNumbertext.Text))

'Call printerfont("50", "180", "2", "0", "1", "1", Trim(frmMain.fgLotno.Text))
Call printlabel(txt_PRINT_LB_SET, Trim(CopiesTxt))
'Call printlabel("1", "1")
'Call about
Call closeport

Else
MsgBox ("Invalid number of copies and Sets, please Re-Enter"), vbCritical, "EnterpriseIQ System"
CopiesTxt.SetFocus
Exit Sub
End If
Exit Sub
eNext:
MsgBox Err.Description, vbCritical, Err.Number
End Sub

游子 2010-08-11