Como pongo una fuente en treport cuando...

[goosfancito]

Hola.

Necesito que esto tenga otra fuente. como lo hago?
graciias.

Code: Select all  Expand view

oR: say(3,"Total final:")

[jrestojeda]

Hola...
Como primera medida, define los Fonts que necesites.

Code: Select all  Expand view

DEFINE FONT oFont0 NAME "ARIAL" SIZE 0,-9
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-14 BOLD

Definición:

Code: Select all  Expand view

REPORT oReport TITLE Titulo CENTER;
          HEADER "aca va la info del header" LEFT;
          FOOTER "Info del footer";
          FONT oFont0,oFont1,oFont2,oFont3;
          PREVIEW;
          CAPTION "Vista previa del listado"

Luego en los Say debes hacer asi:

Code: Select all  Expand view

oReport:Say(1,"TU INFO",nFont,nAlineacion)

nFont es el número de orden en el que están definidos en el objeto Report.

Espero te sirva la ayuda.
Saludos,

[karinha]

Code: Select all  Expand view

// Sample showing how to manage the printer object

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oPrn, oFont, oFntFinal
   local nRowStep, nColStep
   local nRow := 0, nCol := 0, n, m

   PRINT oPrn NAME "Testing the printer object from FiveWin" PREVIEW

      if Empty( oPrn:hDC )
         return nil          // Printer was not installed or ready
      endif

      DEFINE FONT oFont     NAME "Ms Sans Serif" SIZE 0, -14      OF oPrn
      DEFINE FONT oFntFinal NAME "Ms Sans Serif" SIZE 0, -26 BOLD OF oPrn

      nRowStep = oPrn:nVertRes() / 20   // We want 20 rows
      nColStep = oPrn:nHorzRes() / 15   // We want 15 cols

      PAGE

         for n = 1 to 20  // rows

             nCol = 0

             oPrn:Say( nRow, nCol, Str( n, 2 ), oFont )

             nCol += nColStep

             nRow += nRowStep

         next

         nRow -= nRowStep

         //oR: say(3,"Total final:")
         oPrn:Say( nRow, nCol, "Total final:", oFntFinal )

      ENDPAGE

   ENDPRINT

   oFont:End()      // Destroy the font object
   oFntFinal:End()

return nil
 



[goosfancito]

graciias a ambos