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

代码'打印功能
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