象打印超市小票那样的打印机 vb如何控制

[cdjl]

象打印超市小票那样的打印机 vb如何控制

打印完毕自动停止走纸

[zdingyun]

WIN98下能打印中文，WINXP下能打印英文字符及数字，打印机为EPSON针打：

 
VBScript codePrivate 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

[vbman2003]

通用的方法可以用printer对象打印，这个要安装打印机驱动
不安装打印机驱动可以直接向并口或串口发送数据打印，这个要看厂家说明文档

[of123]

用 printer 对象打印就可以。我用过，很方便。

[lcsfxs]

用printer打印如:
nLeft = lcsleft
nTop = lcstop
Printer.Width = 13904 '' 13904
Printer.Height = 3800 '' 3800
Printer.Orientation = 1
If MsgBox("请检查打印机是否接电与装纸,开始打印吗？", _
vbYesNo + vbQuestion) = vbYes Then
Printer.Font.Size = 14
' Printer.CurrentX = nLeft + 6250
' Printer.CurrentY = nTop
' Printer.Print ADOTemp![编号]
Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1100
Printer.Print ADOTemp![用户姓名]
Printer.CurrentX = nLeft + 3300
Printer.CurrentY = nTop + 1100
Printer.Print ADOTemp![地区名称]
Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1100 + 490 * 1
Printer.Print ADOTemp![上网帐号]
Printer.CurrentX = nLeft + 5700
Printer.CurrentY = nTop + 1100 + 490 * 1
Printer.Print ADOTemp![联系电话]

lcsprinter1

Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1100 + 490 * 3
Printer.Print ADOTemp![地址]
Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1000 + 490 * 4
Printer.Print ADOTemp![宽带类型]
Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1000 + 490 * 5
Printer.Print ADOTemp![受理时间]
Printer.CurrentX = nLeft + 4700
Printer.CurrentY = nTop + 1000 + 490 * 5
Printer.Print ADOTemp![受理工号]
' Printer.CurrentX = nLeft - 300
' Printer.CurrentY = nTop + 1100 + 490 * 6
' Printer.Print ADOTemp![机型]
' Printer.CurrentX = nLeft - 300
' Printer.CurrentY = nTop + 1100 + 490 * 7
' Printer.Print ADOTemp![显示器]
End If
Printer.EndDoc

[zuoxingyu]

我用过一种热敏打印机，只需要用水晶报表做一个小的模板，然后把此打印机设置成默认打印机，直接打印输出就行了，就跟普通打印报表程序一样

PS2000-BP这个是型号