小票打印的时候,小票怎么会往里面打的。有谁知道这是什么原因吗?
解决方案 »
- 没有找到 dclcxSchedulerD11.bpl
- 关于delphi一段代码,高手指点 if (p[5]='*') and (p[8]='*') and ( p[9]='*') and (p[10]='%') t
- 显示时间类型的控件
- indy10支持完成端口了,谁用过?
- 哪儿有适用于delphi2007的DevExpress.ExpressQuantumGrid下载?
- SetWindowHookEx不能HOOK命令行(cmd.exe)
- 多表查询单表更新问题(ADOQuery.post)(太穷没分了!)
- 今天问一大难题
- 十万火急:mdf和ldf是什么数据库的格式,DELPHI可以访问吗?????
- 使用SocketConnection构件连接时总是自动调用拨号连接,怎么解决?
- 关于 DBEdit 的奇怪现象,请大侠指点
- 打开多个模块出错
以前做过针式打印,一般有两种,一种是直接用打印控件,设置页长,每次按模板打印,这个看控件支持,另一种就是自己写,固定格式,每行该怎么空都直接放空格,打几行也自己控制,具体是要看打印机的命令集的,那时候有看到过打印机供应商给的技术文档。包括进退纸命令,进纸步长什么的。命令集就是指16进制的一个或者几个字节组合。很久以前做的了,只记得这么多了。VB的一些代码:
Private Sub Command1_Click()
Dim i As Integer
Open "LPT1" For Output As #1
Print #1, Chr(27); Chr(64) '清除原先的打印设置,即初始化
Print #1, Chr(28) & "@" '设置汉字状态
pnt1
Print #1, Chr(28) & "J" '设置汉字纵向打印
pnt1
Print #1, Chr(28) & "K" '设置汉字横向打印状态
Print #1, Chr(27); "3"; Chr(45) '设置换行量宽度
Print #1, Chr(27); "W"; Chr(1) '设置四倍放大
Print #1, Chr(27); "q"; Chr(3) '设置空心字
pnt1
Print #1, Chr(27); Chr(64) '清除原先的打印设置,即初始化
For i = 3 To 24 Step 3 '执行字符间隔调整
Print #1, Chr(28); "S"; Chr(0); Chr(i)
pnt1
Next
Print #1, Chr(28); "S"; Chr(0); Chr(3)
Print #1, Chr(27); "4"; '设置斜体
Print #1, Chr(27); "q"; Chr(3) '设置空心字
pnt1
'Print #1, Chr(28) & "." '切换回西文状态
Close #1
End SubPrivate Sub Form_Load()
Text1 = ""
Open "LPT1" For Output As #1
Print #1, Chr(27); Chr(64) '清除原先的打印设置,即初始化
Close
End SubPublic Sub pnt1()
Print #1, , "LPT1:" & "带有心脏的中英文打印机"
End Sub