in msginfo polish chars are ok

but in object print oPrn I don't have polish chars ( in view )

my source:

include "Fivewin.ch"

REQUEST HB_LANG_PL852
REQUEST HB_LANG_PLMAZ
REQUEST HB_LANG_PLISO
REQUEST HB_LANG_PLWIN
REQUEST HB_CODEPAGE_PLMAZ
REQUEST HB_CODEPAGE_PLISO
REQUEST HB_CODEPAGE_PL852
REQUEST HB_CODEPAGE_PLWIN

FUNCTION MAIN()

LOCAL oWnd, oMenu


   HB_LANGSELECT( "PLWIN" )
   HB_SETCODEPAGE( "PLWIN" )

// HB_SETKEYCP("PLMAZ",INIT_CP)
// HB_SETDISPCP(INIT_CP,'PLMAZ',.t.)

MENU oMenu
    MENUITEM "&Test"

    MENU
        MENUITEM "&Test1";
                 ACTION test1()
        MENUITEM "&Test2";
                 ACTION MSGINFO( "Test z języka polskiego (ąćęłń󟿥ĆĘŁŃÓŹŻ)" )
    ENDMENU
ENDMENU

DEFINE WINDOW oWnd;
       MENU oMenu

ACTIVATE WINDOW oWnd ;
    ON INIT oWnd:Center()

function test1()
PRINT oPrn PREVIEW
PAGE
oPrn:Say( 2, 2, "Test z języka polskiego (ąćęłń󟿥ĆĘŁŃÓŹŻ" )
ENDPAGE
ENDPRINT
return nil

where is the function FixText ?

I looked formy mistake

function test1()
PRINT oPrn PREVIEW
DEFINE FONT oFnt NAME "Arial CE" SIZE 0, -10 OF oPrn
PAGE
oPrn:Say( 2, 2, "Test z języka polskiego (ąćęłń󟿥ĆĘŁŃÓŹŻ)",oFnt )
ENDPAGE
ENDPRINT
return nil

Is it working fine now ?