I'm sorry, I have no more ideas, and no time to analyze the code. Hopefully someone else will jump in.

>no i dont think, i think that this is only array name selected by programmer.
>if you see FUNCTION JoinRTF, two line is in it
>
>=UnionRTF(@cHead,@crt1,Landscape)
>=UnionRTF(@cHead,@crt2,Landscape)
>
>first line run correctly, but this error occure when second line run.
>
>
>
>>I haven't seen this code before, but my guess is that you must add a line like afont(afont0) to populate an array of available fonts.
>>
>>>thanks for your attention
>>>in below section, at the last line.
>>>

>>>*** deffN - defaul font definition correction in text
>>>IF !EMPTY(nDeffH+nDeffT) .AND. ArrLen(@aFont2)>0
>>>	*** search font definition "\f"+nDEffT+"\" for header
>>>	nDeffH=aFont0[VAL(nDeffH)+1] && ôîíò â çàãîëîâêå
>>>

>>>
>>>Error Message is : File 'aFont0' does not exist.
>>>
>>>if found this remarked line in this function:
>>>

>>>IF .F.
>>>	DECLARE aFont0(1),aFont2(1),aColor0(1),aColor2(1)
>>>ENDIF
>>>

>>>when i change IF .F. to IF .T., another error was occured in below line. error message is Operator/operand type mismatch.
>>>

>>>	*** will add this font in header and insert it's number in text
>>>	IF nj>0 .AND. !nDeffT==nDeffH && fonts are different !
>>>