首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

打印小票有关问题!

2012-03-14 
打印小票问题!!我做的一个程序是用DataReport打印小票打印机是70mm宽的纸卷我把left和leftmargin两个函数

打印小票问题!!
我做的一个程序是用DataReport打印小票     打印机是70mm宽的纸卷   我把left和leftmargin两个函数的量都设为0   开始打印时都是正确的可是打了几次后就打印的内容会象左边移动   我不知道是什么原因希望高手帮忙

[解决办法]
关于向打印机发送ASCII码打印控制符,参考下列语句用法:
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
参考上述代码,
使用 Open "LPT1 " For Output As #1 语句打开打印机
使用 Print #1, "ABCDEFGHIJKL " 语句打印 "ABCDEFGHIJKL "
WIN98下能打印中文,WINXP下能打印英文字符及数字,打印机为EPSON针打
代码中CHR()表示打印控制符(各打印机有不同),CHR()后的 " "内属控制打印效果.
打印到那,纸张停走,不象用PRINTER对象即使打印一行,一张纸照样走完.

热点排行