AYUDA CON CONVERSION DE FONTS WINDOWS A FONTS DE TPRINTER
Posted: Sat Apr 22, 2006 11:59 pm
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
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