VB中不用驱动怎样打印？

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

参考下列代码:
向打印机发送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