Eject drawer on parallel POS printer, ejecting feeds paper


I have a drawer connected through a POS printer i have figured out that sending the command
 Chr(27) + Chr(112) + Chr(0) + Chr(25) + Chr(250)

will eject the drawer i have tried using
        Printer.FontName = "FontControl"
        Printer.Print "A";
however this will send an end, making the printer feed paper
as will
        OPEN "LPT1" for output as #1
        PRINT #1, Chr(27) + Chr(112) + Chr(0) + Chr(25) + Chr(250)
        CLOSE #1

what iam searching for is someway to eject this drawer without making the printer feed paper

Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

so you have it hooked up like this:

PC -> PRINTER -> DRAWER, ON LPT1 (Parrell). Is this correct?

mSchmidtAuthor Commented:
Try doing it like this:


what happens if you do that?

I think I have a solution for you.
In the configuration-screen of you printer, you are able to set commands that should be executedin the beginning and at the end of a print job (it is this way with most of the POS-printers, I use the samsung srp-350) There you can also choose to open the drawer at the beginnen and/or ending of a print job.
If you want to be able to open the drawer on other times, you could use the code u have, with the font control. But then you will have to disable the feed. Check your configuration for the printer, and look for a tab called additional commands. there you should be able to check a box "without paper feeding" in the category end of doc. But then you will have to feed in you program. you can feed (and cut) with the control font also.

Hope this helps
Have you tried sending the raw data to the printer, as per http://support.microsoft.com/kb/q154078/ ?

Otherwise try

   Open "LPT1:" for Binary as #1
   Put #1, Chr(27) & Chr(112) & Chr(0) & Chr(25) & Chr(250)


   Open "LPT1:" for Output as #1
   Print #1, Chr(27) & Chr(112) & Chr(0) & Chr(25) & Chr(250)



Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.