关于打印的问题？？？急。。。。

Question

各位大侠，请问我的打印为什么不能成功？打印机使用条形码打印机601XP
例程代码如下：
Private Sub Command1_Click()
    On Error GoTo LU:
    Open "COM1" For Output As #1
         Print #1, "asjdkfljKSDJF"
    Close #1
    Exit Sub
LU:
    MsgBox Err.Description, vbInformation, Me.Caption
End Sub端口设置，驱动设置都正确

Answer 1

Print #1, "asjdkfljKSDJF"你把这句当成了输出到打印机，是吗？

Answer 2

是的。我想把它打印出来，实际的代码是如下：
Open "COM1" For Output As #1
               Print #1, "<STX>R<ETX>"
               Print #1, "<STX><ESC>C<SI>W856<SI>h<SI>I2<ETX>"
               Print #1, "<STX><ESC>P;F*<ETX>"
               Print #1, "<STX>L1;f0;o6,16;l242;w2<ETX>"
               Print #1, "<STX>L2;f1;o246,905;l888;w2<ETX>"
               Print #1, "<STX>L3;f1;o6,905;l888;w2<ETX>"
               Print #1, "<STX>L4;f1;o118,905;l888;w2<ETX>"
               Print #1, "<STX>L5;f1;o182,521;l504;w2<ETX>"
               Print #1, "<STX>L6;f1;o62,521;l504;w2<ETX>"
               Print #1, "<STX>L7;f0;o7,520;l240;w2<ETX>"
               Print #1, "<STX>L8;f0;o7,128;l240;w2<ETX>"
               Print #1, "<STX>L9;f0;o7,256;l112;w2<ETX>"
                Print #1, "<STX>L10;f0;o7,336;l112;w2<ETX>"
               ..........               close #1
请教我该怎么改？

Answer 3

写打印语句：    printer.print "<STX>R<ETX>"
    printer.print "<STX><ESC>C<SI>W856<SI>h<SI>I2<ETX>"
    ......
    printer.enddoc

Answer 4

Option ExplicitPublic Sub PrintPreview(objPrint As Object)
    objPrint.ScaleMode = vbMillimeters   '为毫米为单位
    objPrint.CurrentX = 8
    objPrint.CurrentY = 10
    objPrint.Print "AAAA"
    
    objPrint.CurrentX = 8
    objPrint.CurrentY = 18
    objPrint.Print "BBBB"
    
    If objPrint Is Printer Then objPrint.EndDoc
End SubPrivate Sub Command1_Click()
    '打印预览时传PICTURE控件
    PrintPreview Picture1
    '打印时传PRINTER打印对象
    PrintPreview Printer
End Sub

Answer 5

Open "COM1" For Output As #1
你打印机是装在COM1还是LPT1啊？