karinha wrote:Si todavía recuerdo esto:
REVISE SU CÓDIGO, DEBE TENER UN BUCLE ETERNO DENTRO DE LA PÁGINA ... STARTPAGE, O DUPLICAR ENDPAGE.
o llamando a ENDPRINT sin terminar con EndPage () (abrió una página con StartPage () y no se cerró con EndPage (), llamado ENDPRINT directamente).
//
If I still remember this:
REVIEW YOUR CODE, IT MUST HAVE AN ETERNAL LOOPING WITHIN STARTPAGE... ENDPAGE, OR DUPLICATE ENDPAGE.
or calling ENDPRINT without ending with EndPage() (opened a page with StartPage() and not closed with EndPage(), called ENDPRINT directly).
Otto wrote:http://forums.fivetechsupport.com/viewtopic.php?f=3&t=20484&p=108609&hilit=metafile&sid=238523c790cfe46bff34886f881266bc#p108609
#Include "FiveWin.ch"
#define PAD_LEFT 0
#define PAD_RIGHT 1
#define PAD_CENTER 2
static oWnd
FUNCTION Main()
DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 TITLE "Printing Silvio"
@ 3, 3 BUTTON "&Print me" OF oWnd SIZE 80, 20 ;
ACTION Imp_Silvio()
ACTIVATE WINDOW oWnd
RETURN NIL
FUNCTION Imp_Silvio()
LOCAL oPrn, oFn1, oFn2, oFn3, oFn4
CursorWait()
// oPrn:lPrvModal:=.f. //-> For Classe REPORT.
// Page 1
//here oPrn boxes and cmsay
PRINT oPrn NAME "Impresión en Vertical.." PREVIEW MODAL
DEFINE FONT oFn1 NAME "ARIAL" SIZE 0,- 8 OF oPrn
DEFINE FONT oFn2 NAME "ARIAL" SIZE 0,- 8 BOLD OF oPrn
DEFINE FONT oFn3 NAME "ARIAL" SIZE 0,-11 BOLD OF oPrn
DEFINE FONT oFn4 NAME "ARIAL" SIZE 0,-16 BOLD OF oPrn
oPrn:SetPage(9) // A4
oPrn:SetPortrait() // Vertical
PAGE
oPrn:cmSay( 1.0, 1.0, "Superior Izquierda", oFn4,,CLR_BLACK,,PAD_LEFT )
ENDPAGE
ENDPRINT
// Page 2
PRINT oPrn NAME "Impresión en Vertical.." PREVIEW MODAL
DEFINE FONT oFn1 NAME "ARIAL" SIZE 0,- 8 OF oPrn
DEFINE FONT oFn2 NAME "ARIAL" SIZE 0,- 8 BOLD OF oPrn
DEFINE FONT oFn3 NAME "ARIAL" SIZE 0,-11 BOLD OF oPrn
DEFINE FONT oFn4 NAME "ARIAL" SIZE 0,-16 BOLD OF oPrn
oPrn:SetPage(9) // A4
oPrn:SetPortrait() // Vertical
PAGE
oPrn:cmSay(28.0, 10.5, "Inferior Centro", oFn4,,CLR_BLACK,,PAD_CENTER )
ENDPAGE
ENDPRINT
CursorArrow()
oFn1:End()
oFn2:End()
oFn3:End()
oFn4:End()
RETURN NIL
// \SAMPLES\METAFIL2.PRG
#Include "FiveWin.ch"
#define PAD_LEFT 0
#define PAD_RIGHT 1
#define PAD_CENTER 2
static oWnd
FUNCTION Main()
DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 TITLE "Printing Silvio"
@ 3, 3 BUTTON "&Print me" OF oWnd SIZE 80, 20 ;
ACTION Imp_Silvio()
ACTIVATE WINDOW oWnd
RETURN NIL
FUNCTION Imp_Silvio()
LOCAL oPrn, oFn1, oFn2, oFn3, oFn4, nLine, n
CursorWait()
// oPrn:lPrvModal:=.f. //-> For Classe REPORT.
// Page 1
//here oPrn boxes and cmsay
PRINT oPrn NAME "Impresión en Vertical.." PREVIEW MODAL
DEFINE FONT oFn1 NAME "ARIAL" SIZE 0,- 8 OF oPrn
DEFINE FONT oFn2 NAME "ARIAL" SIZE 0,- 8 BOLD OF oPrn
DEFINE FONT oFn3 NAME "ARIAL" SIZE 0,-11 BOLD OF oPrn
DEFINE FONT oFn4 NAME "ARIAL" SIZE 0,-16 BOLD OF oPrn
oPrn:SetPage(9) // A4
oPrn:SetPortrait() // Vertical
nLine := 2.50
PAGE
FOR n = 1 to 80
oPrn:cmSay( nLine, 3.0, "Silvio Falconi de Italia", oFn4,,CLR_BLACK,,PAD_LEFT )
nLine := nLine += 0.50
IF nline >= 27.50
nLine := 2.50
ENDPAGE // New page
PAGE // Continue...
ENDIF
NEXT
nLine := nLine += 0.80
oPrn:cmSay( nLine, 3.0, "FiveWin Es Extremamente Facil", ;
oFn4,, CLR_BLACK,, PAD_LEFT )
nLine := nLine += 0.80
oPrn:cmSay( nLine, 3.0, "FiveWin The Best Of The World", ;
oFn4,, CLR_BLACK,, PAD_RIGHT )
nLine := nLine += 1.00
oPrn:cmSay( nLine, 5.0, "FIVEWINNERS BRASIL LOS MEJORES", ;
oFn4,, CLR_BLACK,, PAD_LEFT )
ENDPAGE
ENDPRINT
CursorArrow()
oFn1:End()
oFn2:End()
oFn3:End()
oFn4:End()
// QUIT
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 70 guests