Font Condensed

[zeasoftware]

Alguien podria ayudarme para saber como o con que tipo de letra podria
simular la ledra CONDENSADA que se usaba al imprimir desde DOS?
La letra clasica que usamos para imprimir las partidas de una factura.
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[jfgimenez]

Ramón,
> Alguien podria ayudarme para saber como o con que tipo de letra podria
> simular la ledra CONDENSADA que se usaba al imprimir desde DOS?
>
> La letra clasica que usamos para imprimir las partidas de una factura.
Puedes usar una courier new y reducir la anchura lo que necesites,
manteniendo la altura. De todos modos no es una medida exacta, ya que
depende de la resolución de la impresora. Esta tarde buscaré cómo lo calculo
yo y te lo digo.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[jfgimenez]

Ramón,
> Alguien podria ayudarme para saber como o con que tipo de letra podria
> simular la ledra CONDENSADA que se usaba al imprimir desde DOS?
>
> La letra clasica que usamos para imprimir las partidas de una factura.
Prueba a crearla así (una vez creada la página en la impresora):
aSize := { GetDeviceCaps( Printer:hdc, LOGPIXELSX ) / 17.14, ;
GetDeviceCaps( Printer:hdc, LOGPIXELSY ) / 6 }
oFont := TFont():Create( "Courier New", aSize )
Printer:oCanvas:SelectFont( oFont )
...
oFont:Destroy()
--
Un saludo,
José F. Giménez
http://www.xailer.com

[zeasoftware]

Excelente, el unico detalle es que el ::oFont:nHeight regresa un valor muy pequeño por lo que para incrementar la linea hay que pasarlo a mano.
En el PreView de Xailer, se descomponen las letras, se revuelven y conforme se amplia las leras se van viendo mas pequeñas, pero, al mandar a imprimir queda excelente.
Lo puse asi:
WITH OBJECT ::oDevice
:lPreview := ::lPreview
:cJobTitle := "Cotización: " + ::oDocumento:cFolio
:StartDoc()
:oCanvas:nMapMode := mmHIMETRICS
:StartPage()
aSize := { GetDeviceCaps( Printer:hdc, LOGPIXELSX ) / 17.14, ;
GetDeviceCaps( Printer:hdc, LOGPIXELSY ) / 6 }
WITH OBJECT ::oFontBody := TFont():New( ::oDevice )
:cName := "Courier New"
:nSize := aSize
:lBold := .f.
:Create()
END WITH
:::::::
::::::::
Estuve bien?
Mil Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/
--

[jfgimenez]

Ramón,
Excelente, el unico detalle es que el ::oFont:nHeight regresa un valor muy pequeño por lo que para incrementar la linea hay que pasarlo a mano.
En el PreView de Xailer, se descomponen las letras, se revuelven y conforme se amplia las leras se van viendo mas pequeñas, pero, al mandar a imprimir queda excelente.
Lo puse asi:
WITH OBJECT ::oDevice
:lPreview := ::lPreview
:cJobTitle := "Cotización: " + ::oDocumento:cFolio
:StartDoc()
:oCanvas:nMapMode := mmHIMETRICS
:StartPage()
aSize := { GetDeviceCaps( Printer:hdc, LOGPIXELSX ) / 17.14, ;
GetDeviceCaps( Printer:hdc, LOGPIXELSY ) / 6 }
WITH OBJECT ::oFontBody := TFont():New( ::oDevice )
:cName := "Courier New"
:nSize := aSize
:lBold := .f.
:Create()
END WITH
:::::::
::::::::
Estuve bien?
Es mejor que crees la fuente tal cual te puse yo, con todos los parámetros de TFont():Create(...), y después, para usarla, tienes que asignarla al objeto canvas también como te puse:
Printer:oCanvas:SelectFont( oFont )
De esa forma te tiene que funcionar 100% bien.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--