How to print graphic characters

[Enrico Maria Giordano]

In this sample, the graphic character (a vertical line) is not printed. Any ideas?

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oPrn, oFnt

    PRINT oPrn PREVIEW
        DEFINE FONT oFnt NAME "Courier New" SIZE 0, -16 OF oPrn

        PAGE
            oPrn:Say( 100, 100, "This should be a vertical line (ALT-179): " + CHR( 179 ), oFnt )
        ENDPAGE
    ENDPRINT

    RELEASE FONT oFnt

    RETURN NIL

EMG

[karinha]

https://tools.oratory.com/altcodes.html

Code: Select all  Expand view

// https://tools.oratory.com/altcodes.html

#include "Fivewin.ch"

FUNCTION MAIN()

   LOCAL oPrn, oFnt, cAlt_179 := "| ³ ãäå |"
   LOCAL cAlt_124 := "|"

   PRINT oPrn PREVIEW

      DEFINE FONT oFnt NAME "Courier New" SIZE 0, -16 OF oPrn

      PAGE
         //oPrn:Say( 100, 100, "This should be a vertical line (ALT-179): " + CHR( 179 ), oFnt )

         oPrn:Say( 100, 100, "This should be a vertical line (ALT-124): " + cAlt_124, oFnt )
      ENDPAGE

   ENDPRINT

   RELEASE FONT oFnt

RETURN NIL
 

Regards, saludos.

[Enrico Maria Giordano]

Thank you, but I need to print an existing text file containing graphic characters like CHR( 179 ).

EMG

[nageswaragunupudi]

Please define the font with OEM charset like this:

Code: Select all  Expand view

        DEFINE FONT oFnt  NAME "Courier New" SIZE 0, -16 OF oPrn CHARSET 255
 

[Enrico Maria Giordano]

Thank you, it works!

EMG