以下是我自己写的，但是打印机没反应，请问该如何编写才能让斑马打印机打出标签啊？？？？
Private Sub ZebraPrint()
    On Error GoTo cc
    Open "LPT1" For Output As #1   
        Print #1, "打印内容"
        Print #1, "打印内容"
        Print #1, "打印内容"
        Print #1, "打印内容"
    Close #1
cc:
    MsgBox "未連接打印機!", vbCritical, "提示!"
    Exit Sub
End sub