Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Printing to an Intermec 8625 Barcode Printer - Help

1 view
Skip to first unread message

Steve March

unread,
Nov 4, 1997, 3:00:00 AM11/4/97
to

Can anyone help me?

I am trying to print a simple barcode( code 39) to an Intermec 8625 barcode
printer. I got a 3400 Bar Code Printer manual off there web page and was
able to send their IPL commands to the printer to produce text but I can't
produce any barcodes at all. Either the 3400 IPL language is different from
the 8625 or I'm doing something wrong. Here is the code.

EQU ESC TO CHAR(27)
EQU STX TO CHAR(2)
EQU ETX TO CHAR(3)
EQU CAN TO CHAR(24)
EQU ETB TO CHAR(23)
EQU CR TO CHAR(13)
EXECUTE "SETPTR 0,132,60,0,0,1,NOEJECT,NFMT,AT test,BRIEF,NOHEAD"
PRINTER ON
PRINT STX:ESC:"C":ETX
PRINT STX:ESC:"P":ETX
PRINT STX:"E4;F4;":ETX
PRINT STX:"H0;O240,150;f0;c2;h4;w2;d0,30;":ETX
PRINT STX:"L1;o240,250;f0;1550;w5;":ETX
PRINT STX:"B2;o100,100;c0,0;h100;w2;i0;d0,11;p@;":ETX
PRINT STX:"R":ETX
PRINT STX:ESC:"E4":ETX
PRINT STX:CAN:ETX
PRINT STX:"THIS IS THE SAMPLE LABEL":CR:ETX
PRINT STX:"SAMPLE":ETX
PRINT STX:ETB:ETX
PRINTER OFF
PRINTER CLOSE
STOP
END

Thanks,
Steve March
Steve...@avointl.com

Roger Nicholls

unread,
Nov 5, 1997, 3:00:00 AM11/5/97
to

"Steve March" <steve...@avointl.com> wrote:

I have used Intermec barcode printers for quite a while and they
usually seem to work ok..... but...

Be careful that the length of the string being sent for the barcode
does not exceed the defined length in the setup map

I attach a program which works ok on Ultimate with a 8625 which may
help, I send a reset command at the end and less arguments but it
does work

Good luck

*
* PROGRAM TO DEFINE FORMAT OF ALL LABELS ON INTERMEC 8625
*
*


EQU STX TO CHAR(2)
EQU ETX TO CHAR(3)

EQU FF TO CHAR(12)
EQU CR TO CHAR(13)
EQU ETB TO CHAR(23)
EQU CAN TO CHAR(24)
EQU ESC TO CHAR(27)
EQU RS TO CHAR(30)
*
PRINTER ON
PRINT STX:ESC:"P":ETX ;* program mode
PRINTER OFF
PRINTER CLOSE
*
* PROGRAM TO DEFINE FORMAT OF LABEL ON INTERMEC 8625
*
*
COM = ""
COM = COM:STX:"F9;"
COM = COM:"B13;o0,105;c0;d0,11;h35;" ;* BAR CODE NO (11 chars)
COM = COM:ETX
GOSUB 100
*
PRINTER ON
PRINT STX:"R":ETX ;* run mode
PRINTER OFF
PRINTER CLOSE

next send your string to the printer with

PRINT STX:ESC:"E9":
PRINT CAN:

PRINT "DATA HERE"
PRINT RS:
PRINT ETB:
PRINT ETX:

STOP
*
100* PRINT STRING
PRINTER ON
PRINT COM:
PRINTER OFF
PRINTER CLOSE
RETURN
END

0 new messages