N = 3
Open "d:\TESTFILE.txt" For Output As #1   ' ´ò¿ªÊä³öÎļþ¡£
Print #1, "^XA"
Print #1, "^LH30,30"
Print #1, "^FO100,50^AD^FDKNET BONDING PROGRAM^FS"
Print #1, BarcodeStr
Print #1, "^PQ" & N
Print #1, "^XZ"
Close #1Open "d:\print.bat" For Output As #2
Print #2, "COPY d:\TESTFILE.txt COM2"
Close #2Dim RetVal
RetVal = Shell("d:\print.bat", 1)

解决方案 »

  1.   

    就是打开d:\TESTFILE.txt,然后写如一写东西
    第二部分打开d:\print.bat这个文件,把d:\TESTFILE.txt的内容copy进去
    最后一句执行d:\print.bat这个文件,他回自动运行写进去的代码
      

  2.   

    N = 3
    Open "d:\TESTFILE.txt" For Output As #1   ' ´ò¿ªÊä³öÎļþ¡£
    Print #1, "^XA"
    Print #1, "^LH30,30"
    Print #1, "^FO100,50^AD^FDKNET BONDING PROGRAM^FS"
    Print #1, BarcodeStr
    Print #1, "^PQ" & N
    Print #1, "^XZ"
    Close #1
    生成d:\TESTFILE.txtOpen "d:\print.bat" For Output As #2
    Print #2, "COPY d:\TESTFILE.txt COM2"
    Close #2
    生成d:\print.batDim RetVal
    RetVal = Shell("d:\print.bat", 1)
    将d:\TESTFILE.txt发送到COM2口,COM2口应该连着一个打印机,以^开头的都是打印机的内部命令