请高手帮忙解释一下打印代码！

[冰天天]

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

Open "d:\print.bat" For Output As #2
Print #2, "COPY d:\TESTFILE.txt COM2"
Close #2

Dim RetVal
RetVal = Shell("d:\print.bat", 1)

[skycanjian]

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

[feiyun0112]

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.txt

Open "d:\print.bat" For Output As #2
Print #2, "COPY d:\TESTFILE.txt COM2"
Close #2
生成d:\print.bat

Dim RetVal
RetVal = Shell("d:\print.bat", 1)
将d:\TESTFILE.txt发送到COM2口，COM2口应该连着一个打印机，以^开头的都是打印机的内部命令