Viendo otra rutina muy similar a esta, se repita la página en blanco pero solo la segunda página, después lo hace bien.
Saludos
#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
horacio wrote:Gracias Joao por las pruebas, efectivamente funciona pero en mi sistema no lo pude hacer andar. Será la versión que estoy utilizando ? Uso Fwh 17.01
Saludos
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 48 guests