Page 1 of 1
PDF distorcionado con Tprinter en Matricial
Posted: Fri Mar 22, 2024 6:42 pm
by EASYSOFT
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
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 8:20 am
by nageswaragunupudi
With dot-matrix printers, please use simple text only
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 2:59 pm
by EASYSOFT
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
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 3:20 pm
by Enrico Maria Giordano
It could be a problem with the printer driver, if it is too old.
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 8:29 pm
by nageswaragunupudi
We need to use tdosprn.prg not printer.prg
Re: PDF distorcionado con Tprinter en Matricial
Posted: Sat Mar 23, 2024 9:43 pm
by Enrico Maria Giordano
Not necessarily. If the printer has a Windows driver, it is seen by the applications as any other printer.
Re: PDF distorcionado con Tprinter en Matricial
Posted: Thu Mar 28, 2024 12:52 pm
by karinha
Simples,
Code: Select all | Expand
#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.