|
|||||||||
|
|||||||||
|
|||||||||
| |
|||
 |
|
|
|
|
|||||||||
|
|||||||||
|
|||||||||
| |
|||
|
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Display Modes |
Dev Articles Community Forums Sponsor:
|
|
|
|
#1
December 2nd, 2004, 11:14 PM
|
|||
|
|||
PRINT#1 - Ejecting Cash Drawer
Dear All,
I got some sample code in QBASIC and try to convert them to run in VBA/MSAccess. Anyone knows how to do that? Very much appriciated for your help....... ' eject drawer through COM1 OPEN "COM1:300,N,8,1" FOR RANDOM AS #1 PRINT #1, "00000000" ' eject drawer through EPSON printer PRINT #1, CHR$(&h1b); "p; CHR$(0); CHR$(100); CHR$(250) I've tried this in the OnClick event and tried to send through Epson printer from LPT1 but doesn't work...... what's wrong with that??? ------------------------------------------------ Private Sub Eject_Drawer_Click() On Error GoTo Err_Eject_Drawer_Click 'String For Drawer through LPT1???? Open "LPT1:300,N,8,1" For Random As #1 Debug.Print (&H1B) & "p" & Chr$(0) & Chr$(100) & Chr$(250) Close #1 Exit_Eject_Drawer_Click: Exit Sub Err_Eject_Drawer_Click: MsgBox Err.Description Resume Exit_Eject_Drawer_Click End Sub -------------------------------------------------------- Thousands thanks if you could help me to guide me / justify the above error!!!!! ~Arnold~
|
|
| Viewing: Dev Articles Community Forums > Databases > Microsoft Access Development > PRINT#1 - Ejecting Cash Drawer |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
