Imports System.IO
Public Class pos
Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Const OPEN_EXISTING = 3
Private yhflag = 0
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As IntPtr
Private Sub kaiqianxiang()
Dim iHandle As IntPtr
iHandle = CreateFile("LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
If (iHandle.ToInt32 = -1) Then
MsgBox("没有连接打印机或者打印机端口不是LPT1")
Exit Sub
Else
' MsgBox("打印机连接成功!")
Dim fs As New FileStream(iHandle, FileAccess.ReadWrite)
Dim sr As New StreamReader(fs) '读数据
Dim sw As New StreamWriter(fs, System.Text.Encoding.Default) '写数据
sw.Write((Chr(27)).ToString() + "p" + (Chr(0)).ToString() + ((Chr(60))).ToString() + ((Chr(255))).ToString())
sw.Close()
fs.Close()
End If
End Sub
Private Sub print()
Try
Dim iHandle As IntPtr
iHandle = CreateFile("LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
If (iHandle.ToInt32 = -1) Then
MsgBox("没有连接打印机或者打印机端口不是LPT1")
Exit Sub
Else
' MsgBox("打印机连接成功!")
Dim fs As New FileStream(iHandle, FileAccess.ReadWrite)
Dim sr As New StreamReader(fs) '读数据
Dim sw As New StreamWriter(fs, System.Text.Encoding.Default) '写数据
sw.Write("打印了还等什么")
sw.WriteLine() ''得让他分行
sw.WriteLine()
sw.Write((Chr(27)).ToString() + "p" + (Chr(0)).ToString() + ((Chr(60))).ToString() + ((Chr(255))).ToString()) '''''''开钱箱
sw.Close()
fs.Close()
Catch ex As Exception
MsgBox("没有连接打印机!")
End Try
End Sub
分享到:
相关推荐
VB.NET 2012编写,适用并口,USB口打印机
VB.net打开钱箱代码 通过向串口发送相关命令完成
USB打印机不用打印小票开启钱箱。windows驱动钱箱,每次开启只打印1cm纸张。
通用型,适合小票打印机带钱箱控制口,通用型,适合小票打印机带钱箱控制口
delphi打印小票,钱箱。。 速度快。源程序 一看就会。
封装了ESC/POS指令集,目前只支持USB口的打印机。 包括开钱箱、条码打印、获得打印机状态、切纸、设置字体等功能。 使用新北洋BTP-R356H和公达POS58L测试通过。
POS钱箱测试软件,通用型,适合小票打印机带钱箱控制口,用VB编写,
VB开钱箱源代码,可以用其他语言调用 主要是方便PB调用
真正实现打开钱箱,打印机进退纸张,打印的功能
58小票打印机操作 开钱箱 条码打印 文字打印
包含Delphi、PowerBuilder、C#对并口、串口开钱箱的通用方法
开钱箱 易语言源码
qt通过打印驱动打开钱箱,不打印纸,在win7+vs2010+qt5.40+佳博80160测试上通过
pos机并口开钱箱程序,支持通过pos打印机LPT1打开钱箱
我这里实测了开钱箱 佳博GP5860III打印机 USB口连接电脑,钱箱使用串口连接打印机。代码下载之后 可以用bin文件夹中DeBug文件夹中testprint.exe的BUTTON4测试开钱箱 源码在Form1.cs中 按钮4的单击事件中 记住要引用...
ACCESS数据库(含数据库设计),VB源代码,(VS2003 VB.NET源代码),原创开发,店面使用到今,稳定无BUG.支持POS打印机,进行交班结帐.支持POS打印机连接的市面所有钱箱.是不款不错的POS收银软件.支持,应收,找零.
使用C#编写的发送命令给打印机打开钱箱的源代码.使用ESC标准命令,调用API实现. /*ESC p M n1 n2 M =0 代表一个钱箱 n代表脉冲宽度 n1 =40--50 之间 M =1 代表两个钱箱 n2 =120--150之间*/ 使用writePrinter API...
VB打开POS机钱箱,源码.使用VB的MSComm控件. Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdOpen_Click() Dim sTmp As String '打开钱箱命令 sTmp = Chr(2) & Chr(77) OpenBox sTmp ...
易语言POS机小票打印源码,POS机小票打印,abc,打开钱箱,串口打印
C#代码输出打印机执行打开钱箱操作,DEMO已写好。适用于打印机连接钱箱的操作。winform程序直接运行项目即可。