Page 1 of 1
Printing horizontal and vertical text
Posted: Fri Feb 09, 2007 8:02 am
by Frank Demont
Hello,
I have to print horizontal and vertical text on the same page.
Is it possible ?
Frank
Posted: Fri Feb 09, 2007 8:40 am
by 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 )
Posted: Fri Feb 09, 2007 8:43 am
by 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
Posted: Fri Feb 09, 2007 9:10 am
by 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