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