Reverse/inverse printing

[jpeppine]

I am trying to print some reverse image (white text on black background) lines from an iSeries on a document. I am using FNTCHRSET(QFNTCPL/CODOGR10 QFNTCPL/T1V10037) at field level in the DDS. I am using DEVTYPE(*AFPDS) for the print file - the printers are configured TYPE(*IPDS) AFP(*YES). There is an override, but it only affirms DEVTYPE(*AFPDS). The document prints without generating error messages but the lines with the reverse image font print with the document default, ignoring the requested font change. What am I missing?
****** Additional info **********
5722SS1 V5R4M0 5112 PSF 1-45 IPM Printer Support

****** CL OVRPRTF **************
        OVRPRTF    FILE(SF7001PF) DEVTYPE(*AFPDS) OUTQ(PRT02) +                   FORMTYPE(BARCODE) SAVE(*YES)                               
********** PRTF Compile options *********
0006.00      **          DEVTYPE  *AFPDS             
0007.00      **          PAGESIZE 88 84                  
0008.00      **          LPI      8                               
0009.00      **          OVFLW    74                               
0010.00      **          OUTQ     PRT02                             
0011.00      **          FORMTYPE BARCODE                          
0012.00      **          SAVE     *YES                        
0013.00      **          COPIES   1

                              
************* DDS code sample ***********
A          R HEADER                    
A                                                 SKIPB(3)               
A                                               2DATE                                    
A                                                 EDTCDE(Y)   
A N55                                      29'MANUFACTURING ORDER' 
A  55                                       29'PROJECT WORK ORDER'  
A                                             60'ORDER QTY'                             
A            QUANOH        8  0   69EDTCDE(4)                               
A                                                  SPACEA(4)                               
A            MESSG1        50      14FNTCHRSET(QFNTCPL/C0D0GR10 + 
A                                                 QFNTCPL/T1V10037)                     
A                                                 SPACEA(1)                               
A            MESSG2        50      14FNTCHRSET(QFNTCPL/C0D0GR10 +
A                                                 QFNTCPL/T1V0037)                       
A                                                  SPACEA(1)                               
A            MESSG3        50      14FNTCHRSET(QFNTCPL/C0D0GR10A                                                 QFNTCPL/T1V0037)                       
A                                                 SPACEA(0)                                                                 
A            MESSG0        50      14FNTCHRSET(QFNTCPL/C0D0GR10 +                                          
A                                                QFNTCPL/T1V10037)                       
A                                                SPACEA(1)                               
A            MESSG4        50      14FNTCHRSET(QFNTCPL/C0D0GR10 +         
A                                                QFNTCPL/T1V10037)    
A                                                SPACEA(1)                               
A            MESSG5        50       14FNTCHRSET(QFNTCPL/C0D0GR10 +                                            
A                                                 QFNTCPL/T1V10037)                                                       
A                                                 SPACEA(7)                                                                 
A                                               3'ORDER NUMBER'                                                        
A                                              21'DESCRIPTION'  
***** Primarily barcode fields after this point

[jpeppine]

Re: Reverse/inverse printing

The problem was the printer(s) - they did not support the IBM inverse/reverse font. Good luck trying to get a list of compatible printers from IBM. The IBM/Ricoh InfoPrint 1572 can print this font.

[jamief]

Re: Reverse/inverse printing

thanks for posting solution ....

[Marc_d]

Re: Reverse/inverse printing

For Color Printers *AFPDS ( in cm)

Emulate a FLUO MARKER pen to Highlight a printed text.

C                   eval      VAR1 = 'your text'
C                   eval      LENVAR1 = %len(%trimr(VAR1)) * 0,25          
** 0,25 = font width (change it if you use another type of font)

C                   write     FLUOMARK
C                   write     DETAIL


DDS (in cm)

A          R FLUOMARK
A*----- YLW FLUO MARKER with LENVAR1 ---------------------------------------------
A                                      LINE( 9.7 5.0 &LENVAR1 *HRZ +    
A                                      0.35 (*COLOR YLW))                   
A            LENVAR1        5S 3P    
**0,35 = font hight (change it if you use another POINTSIZE for your font)


A          R DETAIL    
A            VAR1          20A         POSITION( 10.0 5.0  )          
A                                      FONT(420 (*POINTSIZE 13))

Note:
If you change fluo marker *COLOR YLW to *COLOR BLK
and add COLOR YLW to VAR1 you can also emulate reverse print
--> it only works on color laser printers!

To the IBM AS400 compiler team :

It's a pitty they haven't included keyword COLOR (WHT)

Now I have to use COLOR YLW and a colorlaserprinter !

Why is it this don't work on a B/W laserprinter?
Make the other colors visible (as WHT, reverse) if printed over a black printed region (= fat line or filled box ) !

There is a use of it !

What do you think?

[jpeppine]

Re: Reverse/inverse printing

Nice! Makes me want to run out and buy a color printer........