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)
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)
解决方案 »
- 谁有已经制作好的漂亮软键盘,最好是能用触摸屏点击的,能否提供??
- 有没有什么办法让Hscroll.max值为超过32767.
- dos下用basic写的bas文件,我用vb6怎么打开都是乱码呢?
- 用OLE DB连接Access,执行SQL语句出错
- SOS!高分求教,关于ACCESS数据库问题! 很急!非常感谢!
- VB6.0生成的ActiveX DLL库与标准Dll库(VC++生成)有什么区别?
- 小弟现要做一个厂务管理,急缺界面图标!一定给分
- 手机号码测命运,感兴趣的进...!!!...
- 怎样给类的属性赋值,新手求救(在线)
- 如何根据文件名查找它的绝对路径?30分
- 怎樣讓自定義控件有屬性對話框
- 实现承诺成功减肥,散分
第二部分打开d:\print.bat这个文件,把d:\TESTFILE.txt的内容copy进去
最后一句执行d:\print.bat这个文件,他回自动运行写进去的代码
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口应该连着一个打印机,以^开头的都是打印机的内部命令