Xailer & OZ Software

Alguien podrí­a apoyarme de como estructura sus fuentes para usarla en impresoras de matriz de puntos?
Estoy aplicándola en unas epson LX300+ pero, o me quedan muy chicas o me quedan muy grandes, aun no domino bien la clase TFont.
En si quiero emular la fuente comprimida o de 15cpp, pero no le he atinado.
Gracias de antemano.
--
Ramón Zea
01.993.231-62-29
Provisional: 01.993.239.20.25
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
--

Ramón,
si buscas en Google "dot matrix fonts" encontrarás un montón de fuentes
libres y que hacen lo que quieres. Por ejemplo esta:
http://www.dafont.com/dot-matrix.font
Para usar una fuente que no esté instalada en Windows, puedes ponerla en la
carpeta de tu aplicación y al inicio de tu programa pones:
AddFontResource( "TuRutaNombreDeLaFuente" )
Y antes de salir de tu programa:
RemoveFontResource( "TuRutaNombreDeLaFuente" )
Saludos,
José Lalí­n

Actualmente uso esto, pero en laser se ve bien, en las de matriz ufff, me
esta dando un poco de dolor de cabeza.
WITH OBJECT oFont1 := TFont():New()
:cName := "Courier New" //"Bodoni MT condensed"
:nWidth := 4
:nHeight := 8
:Create()
END WITH
WITH OBJECT oFont2 := TFont():New()
:cName := "Arial"
:nSize := 10
:Create()
END WITH
WITH OBJECT oFontTitle := TFont():New()
:cName := "Arial"
:nSize := 12
:lBold := .t.
:Create()
END WITH
Pero se pierde la magia en las epson (
Gracias.
--
Ramón Zea
01.993.231-62-29
Provisional: 01.993.239.20.25
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com

Ramón,
antes del :Create(), asigna la propiedad oDevice de la fuente con el oCanvas
de la impresora. Si no se indica el oDevice, la fuente se crea para
pantalla, y seguramente es eso lo que te está pasando.
P.ej:
oFontTitle := TFont():Create( "Arial", 12,, FW_BOLD,, Printer:oCanvas )
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Yo te recomiendo abrir el puerto con un nH:=fopen('LPT1'), luego en una
variable string pones todo lo que queres imprimir ej:
cAux:=chr(027)+chr(014)+'MIEMPRESA'+chr(27)+chr(33)+chr(0)
cAux+=chr(13)+chr(10)+chr(13)+chr(10)
cAux:='Cliente '+cRazonSoc+chr(12) /// salto de pagina //
y luego
fwrite(nH,cAux)
Yo la uso asi para imprimir unos pasajes y funciona a la antigua muy
rapido y muy 'estilo matricial'
Saludos
El 30/12/2010 10:11 a.m., Jose F. Gimenez escribió:
> Ramón,
>
> antes del :Create(), asigna la propiedad oDevice de la fuente con el
> oCanvas de la impresora. Si no se indica el oDevice, la fuente se crea
> para pantalla, y seguramente es eso lo que te está pasando.
>
> P.ej:
>
> oFontTitle := TFont():Create( "Arial", 12,, FW_BOLD,, Printer:oCanvas )
>
>