mailing labels

[tknowles@csc.com]

John
Can't answer your question, but I'd like to know the answer. I have always had
to resort to trial and error in these sort of situations.
Tony Knowles



jpearce@rmi.net on 10/08/2000 13:01:33

Here is a snippet of code that will correctly print 1-up labels.  With the
Set Page Images 3, the bar codes are not positioned correctly.  The bar
code for the middle label starts about halfway across the label on the left
 and the bar code for the label on the right side starts about a third of
the way across the middle label.  There are ten characters in the ESC
sequence to change to the barcode font plus two characters to terminate it.
 I could understand if the bar code for the middle label was 12 print
positions to the left but it appears to be about 18 positions to the left.

Before I write a QTP pre-pass, does anyone have any ideas why this happens?

DEFINE X35A CHAR*35 = &
  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
DEFINE X35B CHAR*35 = &
  "XX                               XX"
DEFINE X35C CHAR*35 = &
  "XX" + FACILITY-NAME OF FACILITIES + "XX"

;THE <ESC>&l8D SEQUENCE PUTS THE LINE PRINTER IN 8 LPI MODE
DEFINE ESCN INTEGER*2 = 27
DEFINE ESC CHAR*1 = CHAR(ESCN)[2:1]
DEFINE LPI8 CHAR*5 = ESC +  "&l8D"
DEFINE HIGHDEN CHAR*5 = ESC + "(s1Q"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;           BAR CODES DEFINES
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DEFINE BC-CHILD CHAR * 20 = &
  ESC + "*z0v0h0q<" + CHILD-NO OF CHILDREN + ">Z"

;INITIAL HEADING &
HEADING AT FACILITY-NUM &
  TAB 01  HIGHDEN"                " SKIP &
  TAB 01 X35A SKIP &
  TAB 01 X35C SKIP &
  TAB 01 X35A SKIP &
   TAB 01 " *** BOTTOM LINE ***" SKIP 2

REPORT &
  TAB 2 BC-CHILD &
    SKIP &
  TAB 4 CHILD-NUM OF CHILDREN &
    SKIP 1  &
  TAB 2 CHILD-NAME OF CHILDREN &
    SKIP &
  TAB 2 FACILITY-NAME OF FACILITIES &
    SKIP 2

SET REPORT DEVICE PRINTER
SET REPORT NAME CCLABELS
SET REPORT LIMIT 50000
SET PAGE LENGTH 0
SET PAGE WIDTH 36   ;ONLY 35 POSITIONS USABLE
SET PAGE IMAGES 3
SET REPORT FORMS " 3-UP LABELS"
SET REPORT PRIORITY 3
SET NOHEAD
SET REPORT SPACING 0

Thanks,

John



= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.