图 1.

下面是引用woandy于2008-08-20 17:10发表的 :
vbCr 复位字元

vbCr 应该 = 什么

他应该有值是吗 

例如chr(13)

这样是吗?

是的    附上常数说明图

真是感谢各为大大热情回应....

最后我把整台机器都拆了...

然后还把主机板拆下来研究

最后发现应该是他的主机板有问题

跟厂商拿了一块备品之后.....

果然可以正常使用了...

指令下达方式如下：

Private Sub Command1_Click()

Dim ByteArray() As Byte
ReDim ByteArray(2)
ByteArray(0) = &H5C ←Divert output to tag
ByteArray(1) = &H46 ← 打算要印的字
ByteArray(2) = &HD ←ENTER
MSComm1.Output = ByteArray
End Sub

恭禧了
只是没有结尾的字元还是第一次看到
我以前写比测仪的方式
跟 mixccc是差不多的用法

所以...你用的并不是COM1...
而是"COM落去",呵~~~

如果是输出不正常,用电表量一下输出电压,也是可以的.

下面是引用woandy于2008-08-20 23:06发表的 :
真是感谢各为大大热情回应....

最后我把整台机器都拆了...

然后还把主机板拆下来研究

最后发现应该是他的主机板有问题

跟厂商拿了一块备品之后.....

果然可以正常使用了...

指令下达方式如下：

Private Sub Command1_Click()

Dim ByteArray() As Byte
ReDim ByteArray(2)
ByteArray(0) = &H5C ←Divert output to tag
ByteArray(1) = &H46 ← 打算要印的字
ByteArray(2) = &HD ←ENTER
MSComm1.Output = ByteArray
End Sub

下面是引用mixccc于2008-08-21 23:35发表的 Re: :
所以...你用的并不是COM1...
而是"COM落去",呵~~~

我也是千百个 不愿意

之前写 发票印表机的时候

就觉得没哪么困难

为什么这次 居然怎么都搞不出来 ＝︿＝

真是多谢你们的热情赞助啦．．．