打印软件的编写

gjinxue

小弟最近想搞个16进制的打印软件，得到了一个VB的代码，可打印出来后却是乱码，不是条码的样子，大家给看看怎么回事，那里有问题：
Private Sub Command1_Click()
Dim a As Integer
Dim c As String
Dim b As Integer
Dim i As Integer
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then
MsgBox "请输入您的SN!", vbExclamation, "注意"
Else
a = Text2.Text
b = Text3.Text
For i = 0 To b
c = Hex(a)
Text4.Text = Text1.Text & a
a = a + 1
Call Printsn_label
Next
End If
End Sub

Private Sub Printsn_label()
    Printer.Print "^LH 0,10"
    Printer.Print "^XA^F01,1^FD^FS"
   
    Printer.Print "^FO110,155^A0,65,65^FD" + "SN: " + Left(Text4.Text, 12) + "^FS"
    Printer.Print "^BY3,4.0^FO110,220^BCO,130,N,N,N,N^FD" + Left(Text4.Text, 12) + "^FS"
      
    Printer.Print "^XZ"
    Printer.EndDoc
   ' Text2.Text = Left(Text2.Text, 1)
   
End Sub
Private Sub Command2_Click()
End
End Sub

cuijw

<P>是Zebra打印机吗？是ZPLII语言。</P><P>很简单，你不应该对并口用Printer.Print这种方法，Zebra不翻译、执行这些指令</P><P>如果使用串口可以使用MScomm</P><P>如果使用并口可以使用：</P><P>open "lpt1" for output as #1</P><P>print #1,,"............."                         '每次输出一行，有多少行就print多少次</P><P>close #1</P>

gjinxue

<P>那你的意思就是我用串口就可以打印出来了？</P>

cuijw

<P>都可以的，看你想用串还是并口了了</P>
<P>串口用第一种方法mscomm，mscomm1.output="............."</P>
<P>并口用open、print、close</P>
<P>目前我主要用这两种方法</P>

gjinxue

<P>我想问一下，用两种方法是不是因为它们的驱动不一样呢？</P>

cuijw

我也不明白为什么printer.print不行

RDkiller

命令格式不同的，[br]<p align=right><font color=red>+3 RD币</font></p>

gjinxue

<P>哪个命令呢？</P>

gjinxue

<P>快乐的时刻就在后面的网站<a href="http://www.54job.com/merry/merry_christmas.htm" target="_blank" >http://www.54job.com/merry/merry_christmas.htm</A></P>

brighter99

<P>楼主这句^BCO,130,N,N,N,N好像不对哦，^BC应该是128码，Zebra II语法结构如下：
^BCo,h,f,g,e,m
where
^BC=Code 128 Bar Code
o=Orientation
Default value: Current ^FW setting
Other values: N=Normal, R=Rotated 90 degrees colockwise, I=Inverted,180 degrees, B=Read from Bottom Up, 270 degrees
具体查看Zebra II编程文档吧。另外，关于发送打印命令cui版主说的是对的，不用安装驱动，直接使用串口和并口就可以啦
</P>[br]<p align=right><font color=red>+1 RD币</font></p>