http://wenku.baidu.com/view/7d96ac63caaedd3383c4d317.html ??Ñô 13:26:20

     http://www.360doc.com/content/10/0602/23/339365_30956814.shtml

    ??Ñô 13:51:59

     http://topic.csdn.net/t/20030303/10/1484316.html ??Ñô 2011-10-4 18:43:13

    ??Ñô 12:41:23

     http://www.programfan.com/club/showpost.asp?id=14967 ??Ñô 12:46:19

     http://www.i-am-best.com/software/software.htm ??Ñô 12:55:34

     http://wenku.baidu.com/view/1e5e97d026fff705cc170a78.html Private Sub InitZebra()

     On Error Resume Next

     If Zebra.PortOpen = True Then Zebra.PortOpen = False

     With Zebra

     .Settings = ??9600??7??e,1 "

     .Handshaking = comXOnXoff

     .CommPort = 1

     End With

     Zebra.PortOpen = True

    End Sub

    Private sub PrintLabel(strData as String)

     Zebra.Output = strData

    End Sub

Private Sub Command1_Click()

     Dim strData as String

     StrData= "^XA _

     ^BY1,2,8 _

     ^LT5 _

     ^LH60,15 _

     ^FO15,5 _

     ^BCN,20,N,N,A^FD1234567890^FS _

     ^FO15,35 _

     ^CFD,13,5^FD1234567890^FS _

     ^XZ "

     PrintLabel StrData

    End Sub

Private Sub Form_load()

     InitZebra

    End Sub