我想打印一张单据,单据中有一行是表式一些用品,可每张单据中的用品数量不同,每一种用品占一行,当打完最后一行之后,如何能让打印机把纸停在那里,就不要走了,我也参考了论坛里的一些做法,可都没成功,还请各位帮忙指教,谢谢!
解决方案 »
- 关于VB对api函数SystemTimeToTzSpecificLocalTime 调用问题
- 请大家介绍一本VB数据库开发系统教程的书或者学习网站
- 关于算法问题
- vb shell 调用c++开发的exe程序
- 请问,VB有没有办法获得错误行??
- 需要超级高手帮助:谁能用API关闭掉这个对话框窗口。窗口标题:Microsoft Internet Explorer。窗口类名:#32770 (对话框)
- 如何设置单元格格式为上面双划线
- 初学的问题:不能在module里declare函数的?
- datareport报表中怎样实现显示两列的乘积?
- SendKeys 问题
- INSTEAD OF触发器使用的问题
- API tooltip 的问题
Open "LPT1 " For Output As #1
For I = 1 To 5
Print #1, Chr(10) '控制换行,同Chr(13)
Next
Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符 "
Print #1, Chr(14); "ABCDEFGHIJKL " '宽体每行40字符
Print #1, Chr(27); "IA " '恢复正常字体
Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符 "
Print #1, Chr(27); "IB "; "ABCDEFGHIJKL " '横向扩展每行40字符
Print #1, Chr(27); "IC "; "ABCDEFGHIJKL " '纵向扩展每行80字符
Print #1, Chr(27); "E "; "ABCDEFGHIJKL " '加重黑体
Print #1, Chr(27); "F " '取消加重黑体
Print #1, Chr(27); "IA " '恢复正常字体
Print #1, Chr(27); "4 "; "ABCDEFGHIJKL " '斜体
Print #1, Chr(27); "5 " '取消斜体
Print #1, Chr(27); "0 "; "ABCDEFGHIJKL " '打印每吋6行改8行
Print #1, Chr(27); "1 "; "ABCDEFGHIJKL " '重置行间隔为7/72
Print #1, Chr(27); "2 "; "ABCDEFGHIJKL " '重置行间隔为1/6
Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符 "
Close #1
End Sub