All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================

Hello all,

Could you help?

I am having an issue with printing address labels - 3 across and 10 down (on an 
Avery format 5160).

I have read so many requests and their solutions to this issue however nothing 
solves these problems:
       1) On the first page the first line prints one line lower then all the 
succeeding pages.
       2) The labels creep, i.e. partial labels get printed on the bottom and 
/or fall in to other labels.
       
These are my attempts, what is wrong with them and how can I fix my problem

############################################################################
Attempt 1:

NPR Page 1:
       Chars/Line       96     Lines/Page       66      Page Size       66      
Left Margin     0
       Chars/Inch       12     Lines/Inch               6

NPR Page 3:
Footnote:
        AL PRINT set.print

Macro:
set.print:
        %Z.printer(/R.CPI,/R.LPI,/R.PS,/R.CPL,/R.LP,{{"",/R.PS},{/R.CPI},{"",/  
R.LPI}})

############################################################################
Attempt 2:

NPR Page 1:
       Chars/Line       96     Lines/Page       66      Page Size       66      
Left Margin     0
       Chars/Inch       12     Lines/Inch               6

        Report Header   Y

NPR Page 2:
HR:
        LC=IF{'/PRINTER 1^/PRINTER,
       LC=%Z.printer(/R.CPI,/R.LPI,/R.PS,/R.CPL,/R.LP,
       LC={{"",/R.PS},{/R.CPI},{0,/R.LPI}})}

############################################################################

Macro that creates the MV array:
NPR Page 3:
Footnote:
        AL D build.mv
        AL START 0^ROW^COL

Macro:
@INIT,
@ADJUST.ROW.AND.COLUMN,
@LOAD.DATA

INIT
@account.number^/PT,%Z.rw.fragment("BAR.PAT.zcus.abs.chg.total.data.frag.R","BAR.DCT"),
/R.FRAG.VAL["ADDR"]^/ST,
/R.FRAG.VAL["CITY"]^CI,
/R.FRAG.VAL["STATE"]^ST,
/R.FRAG.VAL["ZIP"]^ZI

ADJUST.ROW.AND.COLUMN
COL+1^COL,
IF{COL>3 ROW+6^ROW,1^COL,RC+1^RC}

LOAD.DATA
" "^/MV["LABEL",ROW,COL],
@name^/MV["LABEL",ROW+1,COL],
/ST^/MV["LABEL",ROW+2,COL],
CI_", "_ST_" "_ZI^/MV["LABEL",ROW+3,COL],
" "^/MV["LABEL",ROW+4,COL],
" "^/MV["LABEL",ROW+5,COL],
IF{RC\2=1 " "^/MV["LABEL",ROW+5_"A",COL]}


Looking forward to your replies,

Thanks in advance for looking,

Marc


Marc Benoy RN, MS, MBA
Clinical IT Project Leader RN
301.552.8876 (Phone)
301.552.8181 (Fax)
[EMAIL PROTECTED]
 
Doctors Community Hospital
8118 Good Luck Road
Lanham, MD 20706
 
Magic 5.4
 
CONFIDENTIALITY STATEMENT:  This communication, including attachments, is for 
the exclusive use of addressee and may contain proprietary, confidential or 
privileged information. If you are not the intended recipient, you are hereby 
notified that any disclosure, use, copying, dissemination, distribution or 
taking of any action in reliance on the content of this information is strictly 
prohibited. If you are not the intended recipient, please notify the sender 
immediately by return email and delete this communication and destroy all 
copies.  Thank you.

_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l

Reply via email to