VB中不用驱动怎样打印？

[huangjianyou]

Printer对象不行。请关注。。。

^_^

[Tiger_Zhao]

请咨询打印机供应商！
也许接口很简单，你叫声“打印”就可以了。:)

[东方之珠]

全是红军！级别不够，我也来看看！

[monkely]

直接向串口或并口输出字符

[huangjianyou]

怎样向串口或并口输出字符？

^_^

[monkely]

用Mscomm控件

[脆皮大雪糕]

要得到打印机的串口通讯协议

[脆皮大雪糕]

或者打印机厂商提供动态链接库

[脆皮大雪糕]

好像比较通用的是ESPON的ESC/POS指令集，去搜索一下吧

[huangjianyou]

要得到打印机的串口通讯协议
或者打印机厂商提供动态链接库

这个比较实际点。。。只有打电话去问了。。。

^_^

[熊孩子开学喽]

是找不到驱动还是不可以用驱动？
如果没有安装驱动的话，系统更本认不出打印机，那用任何常规方法都是无法操作打印机的。

[huangjianyou]

楼上同志，可能你未接触过，是不用装驱动，一插上打印机就可以控制打印机打印的。我就是看过这种技术我才要做的。是可以操作打印机的。大家研究下啦。。。希望成功人士发段代码上来看看。。。

^_^

[of123]

什么品牌的打印机？用的是什么通讯端口？

从理论上说，任何打印机，如果你知道它的接口协议，而且它支持 SPP 并口模式，或者使用串口，你都可以通过直接编程很方便地控制并打印，只是没有使用打印机对象那么方便罢了。

[huangjianyou]

of123，是热敏打印机，我问过人，他说不用指定什么品牌的，只是一插上就可以打印的，不过不能是激光同喷墨的打印机。你知道直接编程是用那些命令吗？

^_^

[huangjianyou]

我还问过他，他说LPT、COM、USB都可以，只是程序里指定就行，总之一插上打印机就可以用程序控制打印，其实这种打印很方便的，我一直用Printer，都要装驱程，不装驱程其实对打票据很好。请知道的告诉我？发段代码指条路。

^_^

[zzyong00]

早些年在DOS下有：copy ... prn
这个不知用不用驱动？

[zdingyun]

参考下列代码:
向打印机发送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对象即使打印一行,一张纸照样走完.

Private Sub Command1_Click()
Open "LPT1:" For Binary Access Write As #1
DoEvents
Put #1, , "AAAAAAAAAAAA引号里填写打印机脚本"
Close #1
Open "LPT1" For Output As #1
Print #1,
Close #1
End Sub

[huangjianyou]

呵呵，这段代码我在网上都找到了。不过还是得谢谢您。。。我会认真调试的。。。

^_^

[tianhuo_soft]

可以用会汇编代码写
上学时做过这个试验 要用8255这个编程器
按位把字节写上去
比如16*16=255 就要写一个字节

[红叶哥]

用汇编代码写,花的時間應該不少吧

[xiemeilin]

热敏打印机是不用安装驱动的，但是它是提供了活动组件文件给你调用的