vb.net winform pos机并口打印机打印以及开钱箱。。。。
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
'打印功能
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
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
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步