Page 1 of 1
PDF distorcionado con Tprinter en Matricial
Posted:
Fri Mar 22, 2024 6:42 pmby 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 amby nageswaragunupudi
With dot-matrix printers, please use simple text only
Re: PDF distorcionado con Tprinter en Matricial
Posted:
Sat Mar 23, 2024 2:59 pmby 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 pmby 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 pmby nageswaragunupudi
We need to use tdosprn.prg not printer.prg
Re: PDF distorcionado con Tprinter en Matricial
Posted:
Sat Mar 23, 2024 9:43 pmby 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 pmby karinha
Simples,
- Code: Select all Expand view
#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.