现在的位置: 首页 > 综合 > 正文

vb.net winform pos机并口打印机打印以及开钱箱。。。。

2012年03月29日 ⁄ 综合 ⁄ 共 1700字 ⁄ 字号 评论关闭
代码
'打印功能 
public sub MyPrint()
Dim objfs, objprinter
        objfs 
= CreateObject("Scripting.FileSystemObject")
        objprinter 
= objfs.CreateTextFile("LPT1:"True)
        objprinter.Writeline(
"           俺家大饭店          " + Chr(10))
        objprinter.Writeline(
"--------------------------------" + Chr(10))
        objprinter.Writeline(
"编号    名称      单价   数量" + Chr(10))
        objprinter.Writeline(
"                                 " + Chr(10))
        
For i = 0 To dt.Rows.Count - 1
            objprinter.Writeline(
" " & i + 1 & "      " & dt.Rows(i).Item(1& "        " & dt.Rows(i).Item(2& "      " & dt.Rows(i).Item(3& " " + Chr(10))
        
Next
        objprinter.Writeline(
"--------------------------------" + Chr(10))
        objprinter.Writeline(
"共计:" & frmHmain.Tolmoney & "元|付款:" & txtFK.Text & "元|找零:" & lblzl.Text & " 元" + Chr(10))
        objprinter.Writeline(
"--------------------------------" + Chr(10))
        objprinter.Writeline(
"打印日期:    " + Date.Now + Chr(10))
        objprinter.Writeline(
"--------------------------------" + Chr(10))
        objprinter.Writeline(
"欢迎您再次光临,谢谢。请慢走!" + Chr(10))
        objprinter.Writeline(
Chr(10))
        objprinter.Writeline(
Chr(10))
        objprinter.Writeline(
Chr(10))
        objprinter.close()
        objprinter 
= Nothing
        objfs 
= Nothing
End sub
Public Shared Sub OpenBox() '打开钱箱
        Dim objfs, objprinter
        objfs 
= CreateObject("Scripting.FileSystemObject")
        objprinter 
= objfs.CreateTextFile("LPT1:"True)
        objprinter.Writeline((
Chr(27)).ToString() + "p" + (Chr(0)).ToString() + ((Chr(60))).ToString() + ((Chr(255))).ToString())
        objprinter.close()
        objprinter 
= Nothing
        objfs 
= Nothing
    
End Sub 

抱歉!评论已关闭.