FiveTech Support Forums

#include "FiveWin.ch"
#include "report.ch"

request DBFCDX

STATIC oReport

Function Rep01()

   LOCAL oPen1, oPen2, oFont1, oFont2, oFont3, oReport

   SET DATE BRIT
   SET EPOCH TO 1950
   SET CENTURY ON

   USE TEST NEW VIA "DBFCDX"

   GO TOP

   DEFINE PEN oPen1 Width 2 COLOR CLR_HGRAY
   // DEFINE PEN oPen1 WIDTH 2
   DEFINE PEN oPen2 WIDTH 1

   DEFINE FONT oFont1 NAME "Arial"       SIZE 0, -11
   DEFINE FONT oFont2 NAME "Arial"       SIZE 0, -11
   DEFINE FONT oFont3 NAME "Courier New" SIZE 0,  09 BOLD

   // REPORT oReport TITLE  "*** My First Report ***" PREVIEW

   REPORT oReport TITLE "*** My First Report ***"                            ;
      CAPTION "*** My First Report ***"                                      ;
      HEADER "Empresa: ",                                                    ;
      "Fecha:"   + DTOC( DATE() ),                                           ;
      "Página: " + STR( oReport:nPage, 3 )                                   ;
      FOOTER OemToAnsi( "- *** My First Report *** -" ) CENTER               ;
      FONT oFont1, oFont2, oFont3                                            ;
      PEN oPen1, oPen2 ;
      PREVIEW

   oReport:oDevice:lPrvModal := .T.
   oReport:oDevice:SetPage(9) //-> Formato A4

   oReport:lAutoLand := .F. // Vertical  // Manuel Mercado.
   // PrnPortrait()         // vertical
   // oReport:SetPortrait() // Vertical

   COLUMN TITLE "St"         DATA Test->State             FONT 3
   COLUMN TITLE "First Name" DATA ALLTRIM( Test->First  ) FONT 3
   COLUMN TITLE "Street"     DATA Test->Street            FONT 3
   COLUMN TITLE "City and.." DATA Test->City,                             ;
              + "State: " +       Test->State,                            ;
              + "Hiredate: " + TRANSF( Test->Hiredate, "@D 99/99/9999" ), ;
              + "Age/Edad: " + TRANSF( Test->Age, "999" ) FONT 3          
   COLUMN TITLE "Salary: "   DATA Test->Salary RIGHT SHADOW GRID

   END REPORT

   IF !oReport:lCreated 
      RETURN NIL
   ELSE
      oReport:SetTxtColor(CLR_HBLUE,1)
      oReport:SetTxtColor(CLR_HRED, 2)
      oReport:SetTxtColor(CLR_HBLUE,3)
      oReport:SetPenColor(CLR_HBLUE  )
      oReport:SetShdColor(CLR_HCYAN  )
   ENDIF

   oReport:CellView()

   ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }

   oPen1:End()  
   oPen2:End()  
   oFont1:End() 
   oFont2:End() 
   oFont3:End()

   CLOSE TEST

RETURN NIL