VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2259|回复: 3

[求助] vb与串口打印

[复制链接]
发表于 2016-1-14 22:12:48 | 显示全部楼层 |阅读模式
vb 在并口打印时可以这样精确定位:

      Printer.CurrentX = 1510
Printer.CurrentY = 950
Printer.Print “123456”

但是在串口打印时,如何精确定位呢

MSComm1.Output
发表于 2016-1-16 09:17:15 | 显示全部楼层
看打印机的命令,好像论坛有例子
回复 支持 反对

使用道具 举报

发表于 2016-1-17 09:04:16 | 显示全部楼层
本帖最后由 zdingyun 于 2016-1-17 09:09 编辑

1.串口打印,需要将字符按字节形式作打印指令发送。
2.具体如何定位,只能是一行行作为通过串口发送打印指令实施。
3.参考:
  1. Private Sub Command1_Click()
  2.     Open "LPT1 " For Output As #1
  3.         For I = 1 To 5
  4.             Print #1, Chr(10)      '控制换行,同Chr(13)
  5.         Next
  6.         Print #1, Chr(27); "IA "; "ABCDEFGHIJKL "          '正常字体每行80字符 "
  7.         Print #1, Chr(14); "ABCDEFGHIJKL "        '宽体每行40字符
  8.         Print #1, Chr(27); "IA "        '恢复正常字体
  9.         Print #1, Chr(27); "IA "; "ABCDEFGHIJKL "          '正常字体每行80字符 "
  10.         Print #1, Chr(27); "IB "; "ABCDEFGHIJKL "          '横向扩展每行40字符
  11.         Print #1, Chr(27); "IC "; "ABCDEFGHIJKL "          '纵向扩展每行80字符
  12.         Print #1, Chr(27); "E "; "ABCDEFGHIJKL "          '加重黑体
  13.         Print #1, Chr(27); "F "        '取消加重黑体
  14.         Print #1, Chr(27); "IA "        '恢复正常字体
  15.         Print #1, Chr(27); "4 "; "ABCDEFGHIJKL "          '斜体
  16.         Print #1, Chr(27); "5 "        '取消斜体
  17.         Print #1, Chr(27); "0 "; "ABCDEFGHIJKL "          '打印每?6行改8行
  18.         Print #1, Chr(27); "1 "; "ABCDEFGHIJKL "          '重置行间隔为7/72
  19.         Print #1, Chr(27); "2 "; "ABCDEFGHIJKL "          '重置行间隔为1/6
  20.         Print #1, Chr(27); "IA "; "ABCDEFGHIJKL "          '正常字体每行80字符 "
  21.         'Print  #1,  Chr(12)  '控制换页
  22.     Close #1
  23. End Sub
复制代码
4.需要注意的是以上是并行使用的方法,串口可能有些与之不同。这代码完全是脱离Printer打印机对象,将LPT1改成Com1,且需要设置波特率等参数,待有空给你收集些,Basic下执行串口命令的代码,放VB的按钮事件中执行。。

评分

参与人数 1威望 +8 人气 +1 收起 理由
xjgh + 8 + 1 很给力

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2016-1-20 13:42:18 | 显示全部楼层
串口的Basic指令:
  1. Open “Com1:9600,n,8”  As #1
复制代码

评分

参与人数 1威望 +8 人气 +1 收起 理由
xjgh + 8 + 1 赞一个

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-5 11:29

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表