高分请教：使用PUT打印到LPT1

genens 2007-09-29 06:19:51

高分请教：使用PUT打印到LPT1时，POS打印机不会分行，请问输送什么字符打印回车的

...全文

170 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

zdingyun 2009-01-07

打赏
举报

http://topic.csdn.net/u/20070406/17/86bf1703-5fd2-4321-b2df-80e280b6c9ab.html

zdingyun 2007-09-30

打赏
举报

你完全可使用
Open "LPT1" For Output As #1
Print #1, Chr(10) "控制换行，同Chr(13)
Close #1
语句实现换行.以下代码能使用DOS环境下POS机.
WIN98下能打印中文，WINXP下能打印英文字符及数字，打印机为EPSON针打：
Private Sub Command1_Click()
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字符"
"Print #1, Chr(12) "控制换页
Close #1
End Sub
以上代码能使用DOS环境下POS机.
另请参阅http://topic.csdn.net/u/20070406/17/86bf1703-5fd2-4321-b2df-80e280b6c9ab.html我的答贴.