AYUDA CON CONVERSION DE FONTS WINDOWS A FONTS DE TPRINTER

[Vladimir Zorrilla]

AMIGOS SIGO EN LAPELEA CON ESTO DE DISENAR UN REPORTE
A PRINTER USANDO UN WINDOW PARA DISENARLO

TENGO UNA VENTANA CON GETS Q REPRESNTAN LOS TEXTOS A
IMPRIMIR

1. CAPTURO LAS COORDENADAS DEL CONTROL GET OSEA DEL TEXTO
A IMPRIMIR

aRect:=GetCoors( control:hWnd )

2.Calculo la fila y columna en cm aprox

fila:= aRect[1]/36
colu:= aRect[2]/29

3.Imprimo en centimeros

oPrn:CmSay( fila,colu, oget:Varget() ,oFont , ,oWnd:aControls )

Esto funciona con el Font SMALL FONTS lo que se pone en la windows
aparece a escala en la vista previa del tprinter


pero si se usa una FONT ARIAL de 10 lo que se pone al centro en
la windows en la vista previa aparece pegado a la izquierda.


La pregunta es como convietro un
FONTS WINDOWS A FONTS DE TPRINTER

que se proporcione a bien escala como el SMALL FONTS



Gracias por la Ayuda

[Alfredo Arteaga]

Desconozco el porque y la proporción exacta pero con quitar dos puntos a la fuente definida es muy aproximada la presentación.

Si encuentras el motivo o proporción más de un colega te estaremos agradecidos.