Hi there :)
I have small function breaking string into
individual letters folowed by chr(13).
It works well with showing vertical text in labels on forms
and also in reports. Only problem is that You will need report expression long enough to show entire vertical content, which might not that easy
without changing actual band sizes in already designed reports.

function chopper13
    parameters cString
    local  cString,result_string
    result_string=''
    do while len(cString) > 0
        result_string=result_string +left(cString,1)+chr(13)
        cString = right(cString,len(cString)-1)
    enddo
    return result_string
    ********************

So just add report expression in the report, strech it verticaly long enough to show entire text and in expression write call to this fuction passing parameter string you want shown vertically.

chopper13('MyVerticalText')  

I tried this only with VFP6 SP5.

Rgds++








>Some idea to print a vertical string?
>Thanx