topic-44567

Board index FiveWin para Harbour/xHarbour PRINT oPrn + PDF : FORMAS CONTINUAS

Posts: 410

Joined: Sun Jan 31, 2010 03:30 PM

PRINT oPrn + PDF : FORMAS CONTINUAS
Posted: Sun Jun 02, 2024 01:47 PM

Buen dia..

Requiero generar un pdf (texto + imagenes) con PRINT oPrn , en formas continuas, tipo rollo de impresoras pos termicas... no me sirve clases tipo texto

Con estos metodos no funciona..

local cFilPdf := "c:\temp\filepdf.pdf"

PrnSetSize( 2100, 120000 ) //To adjust a different printer paper size!

oPrn:SETPAGE(29)

PRINT oPrn NAME "Testing the printer object from FiveWin ...." FILE cFilPdf

Gracias

JONSSON RUSSI

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: PRINT oPrn + PDF : FORMAS CONTINUAS
Posted: Mon Jun 03, 2024 03:28 PM

Mira se ayuda: Use Google Traductor.

Code (fw): Select all Collapse

// Impressao Continua:

// http://fivewin.com.br/index.php?/topic/27095-impress%C3%A3o-cont%C3%ADnua-com-printer/
// http://fivewin.com.br/index.php?/topic/24359-oprn-somente-a4/
// http://fivewin.com.br/index.php?/topic/20764-tamanho-da-pagina/
// http://fivewin.com.br/index.php?/topic/24283-como-fazer-o-qr-code-na-nfce/
// http://forums.fivetechsupport.com/viewtopic.php?t=6132

// Eu faço assim mas só testei na Bematech MP-??? TH. Vê se funciona na sua impressora.

   FOR NX := 1 TO nQtdVia // Imprimir várias vias

      PRINTER oPrn TO "NOME_DA_IMPRESSORA" NAME "Trabalho de impressão"

      oPrn:SetPage( 256 )

      DEFINE FONT oFont NAME "Courier New" SIZE 0,-12 BOLD OF oPrn
      DEFINE FONT oFnt2 NAME "Courier New" SIZE 0, -8 BOLD OF oPrn

      nWidt := oFnt2:nWidth + (oFnt2:nWidth/4)
      nFtHi := oFnt2:nHeight
      nPgHi := (60*nFtHi) * 1.3 // Altura da página: (60*Altira da fonte) * 1.3 (Testado na BEMATECH MP 2500)

      oPrn:SetSize( 1000, nPgHi)

      mL := 1 // Linha inicial

      nTckCol := 3 // Tabulação - 3 espaços

      oPrn:StartPage()
      oPrn:SayBitmap(mL*nFtHi, nWidt*(nTckCol+2), ".\bitmaps\logomarca.bmp", 40 * nWidt, (mL+6) * nFtHi)

      mL += 8

      FOR Y = 1 TO LEN(mLista) // mLista é um array contendo o que deve ser impresso

        oPrn:Say(mL*nFtHi, 000, SPACE(nTckCol)+mLista[Y], oFnt2 )

        mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

      NEXT

      IF lAssina // Se deve incluir uma assinatura

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+"----------------------------------------", oFnt2 )

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+" ", oFnt2 )

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+" ", oFnt2 )

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+"___/___/___    _________________________", oFnt2 )

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+"Data           Cliente                  ", oFnt2 )

      ENDIF

      oPrn:Say(mL*nFtHi,000, "_", oFnt2 )

      oPrn:EndPage()

      oPrn:Preview()

      RELEASE FONT oFont, oFnt2

   NEXT

   // Para corrigir o BUG do papel extreito
   SysRefresh()

   PRINTER oPrn2 NAME "BugFix"

   oPrn2:SetPage( 9 )

   oPrn2:End()

Code (fw): Select all Collapse

Eliminado a TDOSPRN.PRG usando a PRINTER.PRG

http://fivewin.com.br/index.php?/topic/27095-impress%C3%A3o-cont%C3%ADnua-com-printer/

   FOR NX := 1 TO nQtdVia // Imprimir várias vias

      PRINTER oPrn TO "NOMBRE_IMPRESSORA" NAME "Trabalho de impressão"

      oPrn:SetPage( 256 )

      DEFINE FONT oFont NAME "Courier New" SIZE 0,-12 BOLD OF oPrn
      DEFINE FONT oFnt2 NAME "Courier New" SIZE 0, -8 BOLD OF oPrn

      nWidt := oFnt2:nWidth + (oFnt2:nWidth/4)
      nFtHi := oFnt2:nHeight
      nPgHi := (60*nFtHi) * 1.3 // Altura da página: (60*Altura da fonte) * 1.3 (Testado na BEMATECH MP 2500)

      oPrn:SetSize( 1000, nPgHi)

      mL := 1 // Linha inicial
      nTckCol := 3 // Tabulação - 3 espaços

      oPrn:StartPage()
      oPrn:SayBitmap(mL*nFtHi, nWidt*(nTckCol+2), ".\bitmaps\logomarca.bmp", 40 * nWidt, (mL+6) * nFtHi)

      mL += 8

      FOR Y = 1 TO LEN(mLista) // mLista é um array contendo o que deve ser impresso

        oPrn:Say(mL*nFtHi, 000, SPACE(nTckCol)+mLista[Y], oFnt2 )

        mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

      NEXT

      IF lAssina // Se deve incluir uma assinatura

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+"----------------------------------------", oFnt2 )

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+" ", oFnt2 )

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+" ", oFnt2 )

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+"___/___/___    _________________________", oFnt2 )

         mL ++ ; IF (mL*nFtHi) >= (60 * nFtHi) ; oPrn:EndPage() ; oPrn:StartPage() ; mL := 1 ; ENDIF

         oPrn:Say(mL*nFtHi,000, SPACE(nTckCol)+"Data           Cliente                  ", oFnt2 )

      ENDIF

      oPrn:Say(mL*nFtHi,000, "_", oFnt2 )

      oPrn:EndPage()

      oPrn:Preview()

      RELEASE FONT oFont, oFnt2

   NEXT

   // Para corrigir o BUG do papel extreito
   SysRefresh()

   PRINTER oPrn2 NAME "BugFix"

   oPrn2:SetPage( 9 )
   oPrn2:End()

Regards, saludos.

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

russimicro

Posts: 410

Joined: Sun Jan 31, 2010 03:30 PM

Re: PRINT oPrn + PDF : FORMAS CONTINUAS
Posted: Tue Jun 04, 2024 01:36 PM

Buen día...

Gracias por responder ..

Requiero generar un archivo PDF, de una sola pagina (entre 60 y 1000 filas), que se imprime luego (proceso de envió remoto), en una impresora POS (rollo)

Gracias

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: PRINT oPrn + PDF : FORMAS CONTINUAS
Posted: Tue Jun 04, 2024 01:45 PM

russimicro wrote:Buen día...

Gracias por responder ..

Requiero generar un archivo PDF, de una sola pagina (entre 60 y 1000 filas), que se imprime luego (proceso de envió remoto), en una impresora POS (rollo)

Gracias

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=38472

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: PRINT oPrn + PDF : FORMAS CONTINUAS
Posted: Tue Jun 04, 2024 01:53 PM

Mira también, WIN32PRN.PRG

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=31317

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: PRINT oPrn + PDF : FORMAS CONTINUAS
Posted: Tue Jun 04, 2024 03:19 PM

Mira se ayuda:

Code (fw): Select all Collapse

// C:\FWH\SAMPLES\IMPDIRET.PRG EN TPRINTER.PRG

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 TITLE "Printing a Window"

   @ 3, 3 BUTTON "&Print me" OF oWnd SIZE 80, 20 ACTION( PrintMe() )

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION PrintMe()

   FIELD STREET

   LOCAL oPrn, nAltPag, cTexto, nWidt, nFtHi, oFont, oFont2
   LOCAL nTckCol := 3 // Tabulação - 3 espaços - Coluna
   LOCAL nLinha, cAlias

   USE CUSTOMER
   GO TOP

   cAlias := ALIAS()

   cTexto  := "Impressão dos Produtos"

   nLinha  := 1 // Linha Inicial

   PRINT oPrn NAME "Test" PREVIEW

      DEFINE FONT oFont  NAME "Courier New" SIZE 0, - 12 BOLD OF oPrn
      DEFINE FONT oFont2 NAME "Courier New" SIZE 0, - 8  BOLD OF oPrn

      oPrn:SetPage( 256 )

      nWidt := oFont2:nWidth + ( oFont2:nWidth / 4 )
      nFtHi := oFont2:nHeight  // Altura da FONT

      // Altura da página: (60 * Altura da fonte) * 1.3
      nAltPag := ( 60 * nFtHi ) * 1.3

      oPrn:SetSize( 1000, nAltPag )  // 5200.00

      PAGE

        oPrn:Say( nLinha*nFtHi,000, SPACE(nTckCol)+"--------------------------" + ;
                                                   "--------------", oFont2 )
        nLinha := nLinha + 1

        oPrn:Say( nLinha*nFtHi,000, SPACE(nTckCol)+cTexto, oFont2 )

        nLinha := nLinha + 1

        oPrn:Say( nLinha*nFtHi,000, SPACE(nTckCol)+"--------------------------" + ;
                                                  "--------------", oFont2 )

        nLinha := nLinha + 2

        // Produtos
        WHILE( .NOT. EOF() )

           SYSREFRESH()

           IF EOF()

              EXIT

           ENDIF

           oPrn:Say( nLinha*nFtHi,000, SPACE(nTckCol) + ( cAlias )->STREET, oFont2 )

           nLinha := nLinha + 1

           IF( nLinha * nFtHi ) >= ( 180 * nFtHi )

               oPrn:EndPage()

               oPrn:StartPage()

               nLinha := 1

           ENDIF

           SKIP

        ENDDO

      ENDPAGE

   ENDPRINT

   oFont:End()
   oFont2:End()

RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Regards, saludos.

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

FiveTech Support Forums

Continue the discussion