FiveTech Software tech support forums

Code: Select all

   nAngle:=90
   oFont1:= TFont():New('Courier New',,150,.F.,,,nAngle)
   oFont2:= TFont():New('Courier New',,150,.F.,,,nAngle)
   
   msginfo(oFont1:nOrientation) // SHOW 90
   
   PRINTER oPrinter FROM USER PREVIEW NAME "teste"
   
   oPrinter:setFont(oFont1)

   oPrinter:StartPage()
   oPrinter:Say( 150, 40, 'teste1', oFont1)   
   oPrinter:Say( 300, 40, 'teste2', oFont2)
   oPrinter:Say( 450, 40, 'teste3', oFont2, 1550 )
 

Code: Select all

   nAngle:=900
   oFont1:= TFont():New('Courier New',,150,.F.,,nAngle)

Code: Select all

METHOD New( 1-cFaceName, 2-nWidth, 3-nHeight, 4-lFromUser, 5-lBold, 6-nEscapement, 7-nOrientation, ...)