Printing horizontal and vertical text

[Frank Demont]

Hello,

I have to print horizontal and vertical text on the same page.

Is it possible ?

Frank

[Antonio Linares]

Frank,

You may use different fonts, for vertical text here you have a sample:

DEFINE FONT oFntV NAME "Arial" SIZE 0,-4.5 BOLD NESCAPEMENT 900 OF oPrn

oPrn:cmSay( 9.5, 0.6, "test", oFntV )

[Ruben Fernandez]

Frank:

Yes, try with NESCAPEMENT or something like this when define
the font

Define Font oFont NAME "MS SANS SERIF" Size 0,-15 NESCAPEMENT 360 <- this is the number to do it. Try with it.

Regards

Ruben Fernandez

[Frank Demont]

Antonio , Ruben

Thanks , with nescapement 900 or -900 it works , not with 360

Code: Select all

# include "fivewin.ch"
FUNCTION MAIN
LOCAL oPrn   , cTitle := "merging horizontal and vertical text"
LOCAL Font , oFntV
PRINT oPrn NAME cTitle PREVIEW MODAL
DEFINE FONT oFntV NAME "Arial" SIZE 0,-15 BOLD NESCAPEMENT -900 OF oPrn 
Define Font oFont NAME "MS SANS SERIF" Size 0,-15 NESCAPEMENT 360 oF oPrn
PAGE
  oprn:cmsay(5,5,"HORIZONTAL")
  oprn:cmsay(10,15,"VERTICAL 1",oFntV)
  oprn:cmsay(10,10,"VERTICAL 2",oFont)   // Doesn't work , horizontal printing
ENDPAGE
ENDPRINT
oFont:end()
oFont := nil
oFntV:end()
oFntv := nil
RETURN nil