Using Different Color in ABAP

*
REPORT ZCOLOR LINE-SIZE 90 NO STANDARD PAGE HEADING.

DATA: BEGIN OF TP OCCURS 10, ID, NR(8), TEXT(255), END OF TP.

DATA: LENGTH TYPE I VALUE 8,           " Length of list
    TESTSTRING(15) TYPE C VALUE '012345678901234',
    WIDTH TYPE I.                    " Width of list
DATA: TXT_REPORT LIKE DOKHL-OBJECT.


START-OF-SELECTION.
PERFORM HEADING.
PERFORM OUTPUT_BODY.

FORM HEADING.
FORMAT INTENSIFIED OFF.              " Remove any INTENSIFIED
ULINE AT (WIDTH).                    " Upper frame border
FORMAT COLOR COL_HEADING INTENSIFIED." Title color
WRITE: / SY-VLINE.                   " Left border
WRITE: 'No |Colour        |intensified    |intensified off|',
       'inverse' NO-GAP.
WRITE: AT WIDTH SY-VLINE.            " Right border
ULINE AT (WIDTH).                    " Line below titles
FORMAT COLOR OFF.
ENDFORM.

FORM OUTPUT_BODY.

DO LENGTH TIMES.
  PERFORM WRITE_LINE USING SY-INDEX.
ENDDO.
ENDFORM.

FORM WRITE_LINE USING COUNT TYPE I.
DATA: HELP(14) TYPE C,
      COUNT1 TYPE I.

COUNT1 = SY-INDEX - 1.
WRITE: / SY-VLINE NO-GAP.
WRITE: (4) COUNT1 COLOR COL_KEY INTENSIFIED NO-GAP.
WRITE: SY-VLINE NO-GAP.
CASE COUNT1.
  WHEN '0'.
    HELP = 'COL_BACKGROUND'.
  WHEN '1'.
    HELP = 'COL_HEADING'.
  WHEN '2'.
    HELP = 'COL_NORMAL'.
  WHEN '3'.
    HELP = 'COL_TOTAL'.
  WHEN '4'.
    HELP = 'COL_KEY'.
  WHEN '5'.
    HELP = 'COL_POSITIVE'.
  WHEN '6'.
    HELP = 'COL_NEGATIVE'.
  WHEN '7'.
    HELP = 'COL_GROUP'.
ENDCASE.
WRITE: HELP COLOR COL_KEY INTENSIFIED NO-GAP.
WRITE: SY-VLINE NO-GAP.
WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED NO-GAP.
WRITE: SY-VLINE NO-GAP.
WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED OFF NO-GAP.
WRITE: SY-VLINE NO-GAP.
WRITE: TESTSTRING COLOR = COUNT1 INVERSE NO-GAP.
WRITE AT WIDTH SY-VLINE NO-GAP.
ENDFORM.

*-- End of Program

Using Fonts command in ABAP

How to change the font size of some of the character of SAP report without using scripts?

Be aware that the PRINT-CONTROL is not supported in SAP Enterprise 4.7

For your information, SAP cannot provide any support to error caused by print control command
(see

* Parameters for function below should be taken from your printer
* configuration in SAP - check SPAD transaction -
* standard print control
* print-control position 1 function: 'CI006', 'SF015'.
*
* Submitted by : SAP Basis, ABAP Programming and Other IMG Stuff
*         
*
REPORT ZFONT NO STANDARD PAGE HEADING LINE-SIZE 80 LINE-COUNT 65.

* Start of print-control
NEW-PAGE PRINT ON.

PRINT-CONTROL FUNCTION 'SF000'.
WRITE: / 'This is CPI 20'.

SKIP.
PRINT-CONTROL FUNCTION 'SF020'.
WRITE: / 'This is CPI 6'.

SKIP.
PRINT-CONTROL FUNCTION 'SF008'.
WRITE: / 'This is CPI 12'.

* Depending on your SAP printer device, this may also work
PRINT-CONTROL FONT 1 LPI 6.
* you can try to change font and LPI numbers
WRITE: / 'font 1 lpi 6'.

PRINT-CONTROL FONT 2 LPI 6.
WRITE: / 'font 2 lpi 6'.

PRINT-CONTROL FONT 3 LPI 6.
WRITE: / 'font 3 lpi 6'.

* End of print-control
NEW-PAGE PRINT OFF.

*--- End of Program