This is a multi-part message in MIME format.
------=_NextPart_000_002F_01C570D0.64448DD0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0030_01C570D0.64448DD0"
------=_NextPart_001_0030_01C570D0.64448DD0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Jose Alfonso,=20
Saludos,
"Jose Alfonso Su=E1rez Moreno" <
jasm.nospam@chochurro.com> escribi=F3 en =
el mensaje news:[email=
42adfb1b@ozsrvnegro.ozlan.local...]
42adfb1b@ozsrvnegro.ozlan.local...[/email]
> Ignacio,
>=20
> Solucionado:
>=20
> nPaso :=3D ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * =
100
>=20
> Hab=EDa entendido, no se por que, que :TextHeight( "." ) devolv=EDa la =
> altura del texto en las unidades seleccionadas con=20
> Printer:oCanvas:nMapMode :=3D mmHIMETRICS, pero devuelve pixel, que =
hay=20
> que cambiar a las unidades de trabajo.
>=20
> Saludos,
>=20
> Jose A. Suarez
>=20
>=20
> Ignacio Ortiz de Z=FA=F1iga escribi=F3:
>> Jose Alfonso,
>>=20
>> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo =
hoja de=20
>> ejemplo, a ver que resultados tienes.
>>=20
>> No obstante te recomiendo que utilices siempre un MapMode en =
milimetros, de=20
>> esa forma, te evitar=E1s cualquier problema de resoluciones de =
impresora.
>>=20
>> Un saludo,
>>=20
>> "Jose Alfonso Su=E1rez Moreno" <
jasm.nospam@chochurro.com> escribi=F3 =
en el=20
>> mensaje news:[email=
42aa05b6@ozsrvnegro.ozlan.local...]
42aa05b6@ozsrvnegro.ozlan.local...[/email]
>>=20
>>>Estoy haciendo informes usando el objeto Printer con TCanvas y a
>>>distintas impresoras me da distintos valores para la altura de un =
mismo
>>>TFont, imprimiendo tal y como muestran las im=E1genes.
>>>
>>>Saludo,
>>>
>>>
>>>Jose A. Suarez
>>>
>>=20
>>=20
>>=20
>> =
------------------------------------------------------------ -------------=
-------
>>=20
>>=20
>>=20
>>=20
>>=20
>>=20
>> =
------------------------------------------------------------ -------------=
-------
>>=20
>>=20
>>=20
>>=20
>>
------=_NextPart_001_0030_01C570D0.64448DD0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2627" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV>Jose Alfonso, </DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:002a01c570bf$a0b973e0$
0e00000a@ozlan.local"=20
align=3Dbaseline border=3D0></DIV>
<DIV>Â</DIV>
<DIV>Saludos,</DIV>
<DIV>Â</DIV>
<DIV>"Jose Alfonso Su=E1rez Moreno" <<A=20
href=3D"mailto:
jasm.nospam@chochurro.com">
jasm.nospam@chochurro.com</A>&g=
t;=20
escribi=F3 en el mensaje <A=20
href=3D"news:
42adfb1b@ozsrvnegro.ozlan.local">news:
42adfb1b@ozsrvnegro.oz=
lan.local</A>...</DIV>>=20
Ignacio,<BR>> <BR>> Solucionado:<BR>> <BR>> nPaso :=3D ( =
:TextHeight(=20
"." ) / Printer:Resolution()[2] * 2.54 ) * 100<BR>> <BR>> Hab=EDa =
entendido,=20
no se por que, que :TextHeight( "." ) devolv=EDa la <BR>> altura del =
texto en=20
las unidades seleccionadas con <BR>> Printer:oCanvas:nMapMode :=3D =
mmHIMETRICS,=20
pero devuelve pixel, que hay <BR>> que cambiar a las unidades de=20
trabajo.<BR>> <BR>> Saludos,<BR>> <BR>> Jose A. =
Suarez<BR>>=20
<BR>> <BR>> Ignacio Ortiz de Z=FA=F1iga escribi=F3:<BR>>> =
Jose=20
Alfonso,<BR>>> <BR>>> Por favor ejecuta el ejemplo de =
PrinterInfo e=20
imprime en ambos lo hoja de <BR>>> ejemplo, a ver que resultados=20
tienes.<BR>>> <BR>>> No obstante te recomiendo que utilices =
siempre=20
un MapMode en milimetros, de <BR>>> esa forma, te evitar=E1s =
cualquier=20
problema de resoluciones de impresora.<BR>>> <BR>>> Un=20
saludo,<BR>>> <BR>>> "Jose Alfonso Su=E1rez Moreno" <<A=20
href=3D"mailto:
jasm.nospam@chochurro.com">
jasm.nospam@chochurro.com</A>&g=
t;=20
escribi=F3 en el <BR>>> mensaje <A=20
href=3D"news:
42aa05b6@ozsrvnegro.ozlan.local">news:
42aa05b6@ozsrvnegro.oz=
lan.local</A>...<BR>>>=20
<BR>>>>Estoy haciendo informes usando el objeto Printer con =
TCanvas y=20
a<BR>>>>distintas impresoras me da distintos valores para la =
altura de=20
un mismo<BR>>>>TFont, imprimiendo tal y como muestran las=20
im=E1genes.<BR>>>><BR>>>>Saludo, <BR>>>><BR>>=
;>><BR>>>>Jose=20
A. Suarez<BR>>>><BR>>> <BR>>> <BR>>> =
<BR>>>=20
------------------------------------------------------------ -------------=
-------<BR>>>=20
<BR>>> <BR>>> <BR>>> <BR>>> <BR>>> =
<BR>>>=20
------------------------------------------------------------ -------------=
-------<BR>>>=20
<BR>>> <BR>>> <BR>>> <BR>>></BODY></HTML>
------=_NextPart_001_0030_01C570D0.64448DD0--
------=_NextPart_000_002F_01C570D0.64448DD0
Content-Type: image/png;
name="Image2.png"
Content-Transfer-Encoding: base64
Content-ID: <002a01c570bf$a0b973e0$
0e00000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAgYAAAE9CAMAAABHtFphAAAAB3RJTUUH1QYO CQAPftaDsQAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAVUExURf///wAA /4AAgAAAAOzp2Kyo
mcDAwClbKc8AAAwGSURBVHja7Z2JwqMqDEahzPX9H/nO2ApJCIpLW7XnzLQu rMJnQOsfwwAwhG9X
AM4AMoABGcAIMoABGcAIMoABGcAIMoABGcDIKIMkeQWojcPwSmrGnVKUtF5+ fileVtCkIYPuvlrJ
Chmk42RwvJzvhi+DFefsOvplkI6TwRus2t0ocwPRWNooHF5mV559MugqABks 0pJBWc27VMck2016
OBm8dSd7qTS5LPbCkYGXa5pqVdXwLYPb3fBkULdaY8SQyXKnORF19koGJvq0 mJOBmcMMbp1UBshg
iYYMTCzRQWp8HxwZDN6p2TY2lVLyqdyQgSeu9tQGGXTRJYP6jB+U0TXfpSvn s5NZ5YD2eW5LH7xF
ZVe8CoClzxqoANNR9qTN+5onoWvnX4vUIYOqLnaq4NYQZuiXQaMjahkYazx3 lWeMuTf586yBFQUy
2EunDNrnozblg9tjdWY22/p6oh5SkMH7WHGl0BgU7IgupwX+/KwtON8aqMjO 6IMMdtN138Abj1Xj
D44yRGa9MmjMDVRkZPAOuu4iLsrA7TtPE05JZrEkA3dKUl8pOCmgjSsDNS8b 7AXYvAxaF3UtYyMs
gE21575BleLbDX1ufBmYu3LVbTmTwJvzDX6H2ZLmxDZ/FzF5+5DBNhoyENeH Zatp7BsR3Snf4AlO
7dYW3inFy9UWa3NEBrPc6+kjunsjt5ABZ/1e7iIDNZWBtdxCBgMy2Mk9ZMCv yTu5iQxgH8gABmQA
IwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4IM8fUbsy2JH1LQcszf7 KV5qHlJaSHnMcU7R
YtyTadqQZgfJZLyhiLSjYv0ySEtpUzNk2vUOGTSrVYnAV8WWlkMGM2mRwQ6K DEZD+rSmr+/nvzGG
sLLValKpTEAu5rUn98cUJadTyU0UWzG30LKhkojI85UzFXEOR5VS2qs+pH9D Qnx9/e3/sl7lnxrl
pqqiOThUx32gDGwvjQWG11GKVqhXdapgMsgdW+IlL61OnnRA0EUksxVM1VJw I3dVzq9PXRGnvVS0
+Dz/43OSEIs1qGK7GSZbUbE/meM+QgbTfKp5WMYqmwrMyqCxpymDVkOtkEFZ WZKBe0hp/jjrrdRK
L2QQKhnMNIDOKHm5v0MGudWSNnCm4bMRktPwnMQ2hs5LZ2mLyzoURloGyBym sk0/+zKoIi9ULqiK
uMdZb9WNtCQDnb97nG6Pq2q/QwZuk7iruvBK0G3D4VoDIQ0vXdsKdVuDYMtb rlyjWmmmdkuDgpGB
TV8fpycDd/EeGaSZ1eQ2X8Ma1O0q4zUHBTf5ukHBMxadg0I5HEcUydtyG6ln UEjtBpjZ/25rMBmd
V3+pOfYUKG1iTpykRtypdW67dVcKphpuxdZcKQQRra6cOwn3jjNU0bKBt9HG zn9dKeSZoqxl/5WC
6gKvbS7D1eoLb+HnZBA9vl2pr/NzMgAAAAAAAAAAAAAAAAAAAAAAuD1/4OYg A/jz579OGfz3AT5S
CNT8bfheGXxi6PlEIVCDDCAgAxhBBhCQAYyskkGanIcd60hF1ibkUmxYmt2E Xay1BvlPet9Um1B3
sPzjY7sXjmGbDN5Xm9Db4cjgSLZbgyQ8bx3VJ0YGns+12sFAQhK72SODVHyg HdQRem7g+AnJ7j1k
OCrYzS5r8CYZTFvayU/T7w0q2M+ZZSAdtvj2QTkeg+2cWgah4WzLdX0FOzjj 3GDaMr095/ML9nHG
K4XikFX6EKtHA+N4DLaz/WbyOybo3Ez+EsgAAjKAEX5hhIAMYKRfBnBn+q3B Zx6QhW/AoACBuQGM
IAMIyABGkAGEtTJov9X4mFuKjgxSahYKh7FWBsHt8pleWtV/vjVo5I4yjuMY GbRZdxpnGaTlPHjU
4EC2yqA8EZDUz//mKYTXH7eoSDPKyA81qAcZpteklccPpkz1G9RgMxtlIPpD bqTqmaQSqTyp0tbB
NAEZN1TS1oNvzBoOYfMUcTrFzUbrI07i2doIkZgVkZMam9DBAWywBiPqxHYt gJaGCpipTdDWQKwU
CepvVHAAG2XQ6OH6WeUq0mzPqbmBYw2mUDkMwQG8UwYb5wZj/sEkbeT87ea7 C9sHhaTOb6fb1YCx
6kpBlBFKqfpKQakJOeyEm8kQkAGMIAMIyABGkAEEZAAj55PBMc8XcFNhFeeT QXA7cG2fooFVIAMI
p5ZBcXmT8q8M8i7mtFb/XJH9HuAkrZPzykBoQG2FYFbL7wuVFxR+eerkojII oVKE6xPnE014B04s
g/zL0vQlZVAuJqQMrL80ZNDJiWXw2rc4KARlBgIy2MC5ZTA3N0gMCsdxXhmo K4VQXyk41kA/0owM
+jmlDODTIAMIyABGkAEEZAAjeEKDf+AJDfCEBiPIAAIygBFkAAEZwMjKdzSP 6/JvSL0fb7Y/WuzK
oHK41Fjnr9y38x4Z2JDe/tkhg6pMWMFOT2h9MujuHtcT2qz7NeX6BpcHW9nt CU2uS2tROUqTsVpv
bbPeTtSb12yh2nOGcKrz7Ta9IAd4QrN+bpZdoFT+0kptQunIJLrYc7GVX+Rd uUVBCGtZeaWQT+OG
87McNO8UyU0WHE9o6x3rhKCzhB62yiA13B++wooRXy0D5QnNpJh3vFc/qgad bJTBnPMz6/lsrQzE
3KBOEcKCNUAEW1j/ct582u2aG8zKoJ57eNkkP9tvt+gl2SiDIOyzmsCHvCKu DuS6Prf9K4WSjR72
/SuF2lzAWq58M7nqdWSwlavKwL2lhAy2clUZ2OEkMDncw2VlAEeCDCAgAxg5 pwyS+O4iLe6AOU4p
g5T/tH1zbyKDVSADCGeXQcMBWhJ3LF/3EIPxcSDScSG5zBllkMpHrIoQ8dvB a/UlDpXQZAEzXFMG
jT1NGcACJ5RBedqoloFydRaC7uuko5SHX1DCEmeUwbiaWtYgLFuDYM0AOljg fDIQk7+eQYG5wRGc
XQaNKwUhDK4UDuB8MlgHPXwIyAACMoCRq8sADgEZQMATGjw5lSc0+B69VgNu zbfHJQAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATX418+okc0njk+dab74lUX/I bOQjyo7qO8qdoTv3
8zMngzSbRLy526O034rWavRDXIwWna1Dyo7PZVQx4urMT49+KXsVsmK/RjRc f3MdKYMDy46mFreW
QXlpSX6didg5+q0v61Uiqyd9/rwM9N/2LE34MsJTSIlf9sTnujwNp306R23P jy47y+BZbgnqH3XO
Tu49+ckhJbDooCzlJ+nEtRl9tn5pU9myVSJ9DorhXoSKHNvWYH/ZJkEpM8Sq 4AsjT+RKBsUo9H1a
XRFUu8u5ln8a110xRbAyCIsy2Fd2Qzp11S5OkUHp8Skgh7Y/WibNrogx2q5w 5vOTpY5RZRGdbKPJ
8V1l/54M8nZZ6bUAszKoGi8aixydRD3WICzLYHfZvyKD8uoib27gW4COgUFf tMkR1d+lu+KAQeGg
stX3D8hATPpzQHn9of54VwquDLLZjbFqvJjts23xaLsrmiEgerHCW8q2MpiG mHg3GdwGXsxzMuIX
mGTw+XIBAAAAAAAAAAAAAAAAAAAAAAAAAH6cx5Nx1Qv2d/s74co8psWjGba4 Dy4PMoBgZfB38ZCL
ce80bPxbPL/yzldEuDqP/P3s3GfnPyYNPHKYv3hgH26BkUEwfa27uaUGuDqT vX8Uc9+QQSMGMrgD
4mpxXgZzYwNcHdmRj4W5AdbgthgZzF4pKClMMZDB/XioBfwGj2P49mHAwWAN AAAAfpsZP06xewuu
jnQK2BHR34KrgwwgKNfCMahXDwg/otqraLWFJi5PkYF2Rpv/25cIOFvYhsuT p4iuP+q6qx2X5HB9
lAfxWgbKZbV5M8GkHwaF67MgAxXWNAPo4Oq4Moj+oOBOCpgb3AHzWonmlcLL /juvqGFQuCl066/B
WwWgBZ0KAADwu0S1jO0IcGfKuwqDeTPpFOHbNYQPoGTwXDURvl1D+ADqFcSx PHLAkwU/hZBB/fph
niz4FWLRgCsDniz4CaQMzMMFtTAYFO6KsQZhTgYBi3BXZs59niz4HdRjiNND BfVzBlwpANwdniwA
AAAAAAAAAAAAAMX/+8shmmbhWkEAAAAASUVORK5CYII=
------=_NextPart_000_002F_01C570D0.64448DD0--
Attached files