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

高手在哪里呀？？？

不会吧，有谁能帮忙看看吧，高手在哪里啊！
本人急用啊！！

请问用什么控制符啊，不太明白，代码有问题吗？
请指点的再清楚一点啊，
谢了！