FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour PDF distorcionado con Tprinter en Matricial
Posts: 195
Joined: Sat Oct 22, 2005 01:17 PM
PDF distorcionado con Tprinter en Matricial
Posted: Fri Mar 22, 2024 06:42 PM

Buenas tardes.

Genero un archivo pdf con Tprinter , en mi impresora a tinta funciona bien pero donde un cliente

que tiene una matricial lx-300 el pdf se genera con todas las letras distorcionadas.

Alguna idea de que puede ser.

Muchas gracias

Saludos

Oscar

Fwh 23.10, bcc55

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 08:20 AM

With dot-matrix printers, please use simple text only

Regards



G. N. Rao.

Hyderabad, India
Posts: 195
Joined: Sat Oct 22, 2005 01:17 PM
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 02:59 PM

Buenos días

Gracias por la respuesta Mr. Rao disculpe el desconicimiento pero no entiendo

defino asi

PRINT oPrn FILE cNombrePdf PREVIEW

oPrn:CmSay( nFila, nColumDere,'AMBIENTE : '+cAmbiente , oFont1 )

Muchas gracias

Saludos

Oscar

Fwh 23.10, bcc55

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 03:20 PM

It could be a problem with the printer driver, if it is too old.

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 08:29 PM

We need to use tdosprn.prg not printer.prg

Regards



G. N. Rao.

Hyderabad, India
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 09:43 PM

Not necessarily. If the printer has a Windows driver, it is seen by the applications as any other printer.

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: PDF distorcionado con Tprinter en Matricial
Posted: Thu Mar 28, 2024 12:52 PM
Simples,
Code (fw): Select all Collapse
#Define PAD_LEFT            0
#Define PAD_RIGHT           1
#Define PAD_CENTER          2

FUNCTION..

   LOCAL oPrn, ResLinha. ResColuna, nPagina, nFila, nColumDere

   PRINT oPrn FILE cNombrePdf PREVIEW

   DEFINE FONT oFont1 NAME "Courier New" SIZE 0, -12 OF oPrn

   oPrn:SetPage( 9 ) ; oPrn:SetPortrait()  //-> Vertical(Retrato)

   // Como Imprimir em Centimetros sem errar e em qualquer Impressora
   ResLinha  := oPrn:nLogPixely()/2.54
   ResColuna := oPrn:nLogPixelx()/2.54

   nPagina   := 1

   PAGE  // 1

      // oPrn:CmSay( nFila, nColumDere,'AMBIENTE : '+cAmbiente , oFont1 )

      // cambie asi y listo:

      oPrn:Say( nFila * ResLinha, nColumDere * ResColuna, ;
         + "AMBIENTE : ", oFontRua, , CLR_BLACK, , PAD_CENTER )

      nFila      := nFila += 0.50
      nColumDere :=  6.20

      oPrn:Say( nFila * ResLinha, nColumDere * ResColuna, ;
         + cAmbiente, oFont1, , CLR_BLACK, , PAD_CENTER )

   ... // continue...


RETURN NIL

// FIN / END
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion