TPrinter ya tiene incluido el "salto de pagina"?

[goosfancito]

Eso.
Estoy usando hace mucho la de Rafa, quiero migrar (si se puede) a las clases "nativas".

[karinha]

Code: Select all  Expand view

   LOCAL nLinha  :=  1.00,  nColuna := 18.00

   IF( nVlrVendArea01 ) > 0.00

      IF nLinha >= 24.00  // achou o rodape do preview nova pagina

         nLinha  := 27.00
         nColuna := 10.50

         IMP_TEXTO_RODAPE( nLinha, nColuna, ResLinha, ResColuna, oPrn, oFontBold )

         ENDPAGE

         PAGE  // NOVA PAGINA, CONTINUACAO   // 2

         @  nLinLogo, nColLogo PRINT TO oPrn IMAGE "LOGO.JPG" SIZE nLargLogo, nAltLogo LASTROW nRow

         ++nPagina

         nLinha  := 1.00
         nColuna := 18.00

         IMP_TEXTO_PAGINA( nLinha, nColuna, oPrn, ResLinha, ResColuna, oFont, nPagina )

         nLinha := 3.00

      ELSE
         nLinha  := nLinha += 0.80
      ENDIF

      nColuna :=  2.85

      ... continua...

 

Regards, saludos.

[karinha]

Code: Select all  Expand view

   IF nLinha >= 23.50  // a tu gosto.

      FW_Eject()

   ENDIF

FUNCTION FW_Eject()

   ENDPAGE

   PAGE // NEW PAGE

RETURN( .T. )

// FIN / END