[MartinTschutte]

I am using the following code to open a cash drawer attached to a receipt printer via the parallel port

The KickCashDrawerParallel Sub works Perfectly

The CashDrawerStatus Function 'Hangs at Line 9'

Public Sub KickCashDrawerParallel()
Dim FileNum As Integer
FileNum = FreeFile
Open "LPT1" For Output As #FileNum
Print #FileNum, Chr$(27) + "p" + "0"
Close FileNum
End Sub

Public Function CashDrawerStatusParallel() As Integer
Dim FileNum As Integer
FileNum = FreeFile
Open "LPT1" For Output As #FileNum
Print #FileNum, Chr$(27) + "u" + "0"
Close FileNum

Open "LPT1" For Input As #FileNum
Input #Filenum, Drawer_Stat '-----------> Program Hangs Here
Close Filenum

CashDrawerStatusParallel=Drawer_Stat

End Function

I Cannot work out why the system hangs at that Point

[Swannie]

Hi Martin,

Fancy meeting you here.........

Try this:

Public Sub OpenDrawer()
	Open "LPT1" For Output As #1
	Print #1, Chr$(27); Chr$(112); Chr$(0)
	Close #1
End Sub

Maybe you can help me to determine if the drawer is open or closed?