topic-5912

Board index FiveWin for Harbour/xHarbour Printing horizontal and vertical text

Frank Demont

Posts: 142

Joined: Sun Oct 09, 2005 10:59 AM

Printing horizontal and vertical text
Posted: Fri Feb 09, 2007 08:02 AM

Hello,

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

Is it possible ?

Frank

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Printing horizontal and vertical text
Posted: Fri Feb 09, 2007 08:40 AM

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 )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Ruben Fernandez

Posts: 366

Joined: Wed Aug 30, 2006 05:25 PM

Printing horizontal and vertical text
Posted: Fri Feb 09, 2007 08:43 AM

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

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82

Frank Demont

Posts: 142

Joined: Sun Oct 09, 2005 10:59 AM

Printing horizontal and vertical text
Posted: Fri Feb 09, 2007 09:10 AM

Antonio , Ruben

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

Code: Select all Collapse

# 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

FiveTech Support Forums

Continue the discussion