Metafile error

[Silvio.Falconi]

suddenly while I was trying to do a print I got this message, how do I fix it?

[karinha]

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).

[Silvio.Falconi]

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).

Sorry,
I have this structure

PRINT oPrn PREVIEW TITLE cTitle //FROM USER
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:lPrvModal:=.f.
oPrn:SetLandscape()

CursorWait()
// Page 1
PageBegin()

//here oPrn boxes and cmsay

endpage


// Page 2
PageBegin()

//here oPrn boxes and cmsay

endpage
oFn1:End(); oFn2:End(); oFn3:End();oFn4:End()
endPrint
RETURN NIL


What is wrong ?

[Otto]

viewtopic.php?f=3&t=20484&p=108609&hilit=metafile&sid=238523c790cfe46bff34886f881266bc#p108609

[Silvio.Falconi]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=20484&p=108609&hilit=metafile&sid=238523c790cfe46bff34886f881266bc#p108609

First time you answer me according to the requested topic ... mhm do you want to make it snow?

[karinha]

Code: Select all  Expand view  RUN

#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
 

[karinha]

Code: Select all  Expand view  RUN

// \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