Loading

How to Open Cash Drawer using VB.NET

Submitted by: 
admin
Friday, July 1, 2011 - 11:22


I just want to share with you the code that I have found on the internet on how to open a Cash Drawer using VB.NET.

I am in no way claim this code as my own work. I want to share this with you because there’s a lot of question on the internet on how to open a Cash Drawer on VB.NET.

The code will simply open the cash drawer using either the LPT port or COM port.

Use the following code and test it if it will work on the brand of your cash drawer.

  1.     Private Sub OpenCashDrawer()
  2.         Dim intFileNo As Integer = FreeFile()
  3.  
  4.         'Use this code if you are using LPT Port
  5.         FileOpen(1, "c:\escapes.txt", OpenMode.Output)
  6.         PrintLine(1, Chr(27) & "p" & Chr(0) & Chr(25) & Chr(250))
  7.         FileClose(1)
  8.  
  9.         Shell("print /d:lpt1 c:\escapes.txt", vbNormalFocus)
  10.  
  11.         'Use this code if you are using COM Port
  12.         FileOpen(1, AppDomain.CurrentDomain.BaseDirectory & "open.txt", OpenMode.Output)
  13.         PrintLine(1, Chr(27) & Chr(112) & Chr(0) & Chr(25) & Chr(250))
  14.         FileClose(1)
  15.  
  16.         Shell("print /d:com1 open.txt", AppWinStyle.Hide)
  17.     End Sub


Tags: 
vb.net
tutorial
open cash drawer
admin's picture

Article by admin

admin has submitted 444 source code / articles.

If you like This post, you can follow SourceCodester on Twitter.

Subscribe to SourceCodester feed via RSS or EMAIL to receive instant updates.

Comments

Submitted by Anonymous on Mon, 07/04/2011 - 23:33

Hi,

Thanks for sharing
What would i have to change in this code for vb6

Thanks a lot

Submitted by Anonymous on Fri, 07/08/2011 - 09:59

tnx for the share. . .
this is just what i search for . . .

thank you.

Submitted by Anonymous on Sat, 08/06/2011 - 04:14

What do I have to do to this code to open a cash drawer if the POS printer is connected trough a USB port?

'Use this code if you are using COM Port
FileOpen(1, AppDomain.CurrentDomain.BaseDirectory & "open.txt", OpenMode.Output)
PrintLine(1, Chr(27) & Chr(112) & Chr(0) & Chr(25) & Chr(250))
FileClose(1)

Shell("print /d:com1 open.txt", AppWinStyle.Hide)

Submitted by Anonymous on Fri, 10/14/2011 - 12:18

hi
can u post what inside in the escapes.txt and open.txt files?

Submitted by bc3 on Wed, 02/29/2012 - 01:20

thank you very much! ur post help me a lot :)

Add new comment