TPrinter ya tiene incluido el "salto de pagina"?

Board index FiveWin para Harbour/xHarbour TPrinter ya tiene incluido el "salto de pagina"?

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

TPrinter ya tiene incluido el "salto de pagina"?
Posted: Sun Aug 13, 2023 08:11 AM

Eso.

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

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: TPrinter ya tiene incluido el "salto de pagina"?
Posted: Sun Aug 13, 2023 04:19 PM

Code (fw): Select all Collapse

   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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: TPrinter ya tiene incluido el "salto de pagina"?
Posted: Mon Aug 14, 2023 02:00 PM

Code (fw): Select all Collapse

   IF nLinha >= 23.50  // a tu gosto.

      FW_Eject()

   ENDIF

FUNCTION FW_Eject()

   ENDPAGE

   PAGE // NEW PAGE

RETURN( .T. )

// FIN / END

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion