VBA Code to Open a Cash Drawer!!!

[t0m46]

Hi All,

I have Created an Excel Spreadsheet to work as a EPOS system. The only Problem i am having finishing it off is getting the cash Drawer to open at the end of a sale.

I have my Cash Drawer connected via a Rj 45 in the Back of my Receipt Printer. The Printer i have is a Star Tsp-600. I have Found out that the Open Drawer Codes are 7 or 27,7,10,50,7
I am not entirly sure what they mean though.


The code that i have at the moment doesnt work it brings an error "53" file not found.

This is my code

Open "Lpt1:" For output as #1
Print #1, Chr$(7)
Close #1

I have tried all of the different code but still get teh same error.

Any Help would be Great.

Thanks

Tom