高分求救！！！！走过路过的朋友快来看看！！！！！

[XMMXBB]

c#.net做的一个图书管理系统如何实现条形码打印和书标打印。条形码和书标都保存在数据库中，就是不知道应该怎么实现精确定位打印。希望有做过这方面系统的朋友帮帮忙，没做这方面系统的朋友也给些意见或参与资料。急急急急急急急急！

[jueyingfd]

给你个地址，看看吧！
http://www.cnblogs.com/1-2-3/archive/2007/09/05/http-handler-print-barcode.html

[XMMXBB]

楼上的朋友，能不能说具体点，引用专门的条码组件是什么意思？我是已经可以生成条码了，就是不知道怎么打印出来，还有书标，也是，数据都有了，就是不知道怎么控制它的打印范围和位置，然后怎么打印出来。

[程序漫步]

顶起·

[itcrazyman]

Private Declare Sub openport Lib "c:\winnt\system\tsclib.dll" (ByVal PrinterName As String)
Private Declare Sub closeport Lib "c:\winnt\system\tsclib.dll" ()
Private Declare Sub sendcommand Lib "c:\winnt\system\tsclib.dll" (ByVal command As String)
Private Declare Sub setup Lib "c:\winnt\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)
Private Declare Sub downloadpcx Lib "c:\winnt\system\tsclib.dll" (ByVal Filename As String, ByVal ImageName As String)
Private Declare Sub barcode Lib "c:\winnt\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)
Private Declare Sub printerfont Lib "c:\winnt\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)
Private Declare Sub clearbuffer Lib "c:\winnt\system\tsclib.dll" ()
Private Declare Sub printlabel Lib "c:\winnt\system\tsclib.dll" (ByVal NumberOfSet As String, ByVal NumberOfCopy As String)
Private Declare Sub formfeed Lib "c:\winnt\system\tsclib.dll" ()
Private Declare Sub nobackfeed Lib "c:\winnt\system\tsclib.dll" ()
Private Declare Sub windowsfont Lib "c:\winnt\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)
以上是我的条码打印程序需要引用的组件,你的条码采集器是什么型号的,购买条码采集器的时候应该有打印接口组件的.

以下是打印代码
If Trim(Me.ozy.Value) = "1" Then
'Response.Write(dysz.Value)
Call openport(Trim(dysz.Value))

Call setup("100", "40", "3", "10", "0", "3", "0")
Call clearbuffer()
Call downloadpcx("c:\Inetpub\wwwroot\images\LOGO.PCX", "LOGO.PCX")
Call barcode("100", "30", "39", "120", "0", "0", "2", "10", Trim(dd.Value))
Call sendcommand("PUTPCX 1050,50,""LOGO.PCX""")


Call windowsfont(100, 150, 40, 0, 0, 0, "幼圆", tmstr)
Call windowsfont(1050, 150, 30, 0, 2, 0, "幼圆", "大吉牌")

Call windowsfont(50, 220, 40, 0, 2, 0, "幼圆", "品名:" + cpjcs)

Call windowsfont(50, 300, 40, 0, 2, 0, "幼圆", "批号:" + phs)
Call windowsfont(370, 300, 40, 0, 2, 0, "幼圆", "等级:" + djs)
Call windowsfont(620, 300, 40, 0, 2, 0, "幼圆", "坯类:" + pls)
Call windowsfont(920, 300, 40, 0, 2, 0, "幼圆", jxbms)
Call windowsfont(1050, 300, 40, 0, 2, 0, "幼圆", bjs)

Call windowsfont(50, 380, 40, 0, 2, 0, "幼圆", "包号:" + bh)
Call windowsfont(370, 380, 40, 0, 2, 0, "幼圆", "段数:" + dcs)
Call windowsfont(620, 380, 40, 0, 2, 0, "幼圆", "长度:" + sls + dws)

Call printlabel("1", "1")
Call closeport()
ElseIf Trim(ozy.Value) = "2" Then
' Response.Write("英文")
Dim dw_y As String
If (dws = "米") Then
dw_y = "M"
ElseIf (dws = "码") Then
dw_y = "Y"
End If
Call openport(Trim(dysz.Value))
'Response.Write(dysz.Value)
Call setup("100", "40", "3", "10", "0", "3", "0")
Call clearbuffer()
Call barcode("100", "30", "39", "120", "0", "0", "2", "10", Trim(dd.Value))
Call windowsfont(100, 150, 60, 0, 0, 0, "Arial Black", tmstr)
Call windowsfont(50, 220, 60, 0, 0, 0, "Arial Black", cpjcs)
Call windowsfont(50, 300, 60, 0, 0, 0, "Arial Black", phs)
Call windowsfont(620, 300, 60, 0, 0, 0, "Arial Black", dcs)
Call windowsfont(50, 380, 60, 0, 0, 0, "Arial Black", bh)
Call windowsfont(620, 380, 60, 0, 0, 0, "Arial Black", sls + dw_y)
Call printlabel("1", "1")
Call closeport()
End If
我们这边采购的是条码打印纸

[Jock.Chen]

帮顶

[lgaimin]

没做过这个，帮顶......

[XMMXBB]

用普通打印机+条码纸不能打印吗？

[悔说话的哑巴]

你产生了后你也需要用那种扫描枪才可以，也要找接口

[XMMXBB]

不是，我以为直接用普通打印机就能打印出来了，然后就是要设置一些打印的参数，比如上、下、左、右边距，行高，样式等等。难道还要专门的打印设备?

[lgaimin]

怎么掉下来了？再帮顶

[gyouyang]

板凳

[XMMXBB]

谢谢！

[lgaimin]

UP......
关注ing.....

[mengxj85]

[Quote=引用 1 楼 itcrazyman 的回复:]
需要引用专门的条码组件的,跟你的采集器有关系!
[/Quote]
Up

[teerhu]

帮顶

[zccmy22]

恩，没有做过，顶一下吧。

[lgaimin]

顶.....

[hangang7403]

up

[lgaimin]

继续顶...期待高手....关注中......

[wuyq11]

参考