Jose Alfonso,
Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo hoja de
ejemplo, a ver que resultados tienes.
No obstante te recomiendo que utilices siempre un MapMode en milimetros, de
esa forma, te evitarás cualquier problema de resoluciones de impresora.
Un saludo,
"Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
> 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ágenes.
>
> Saludo,
>
>
> Jose A. Suarez
>
------------------------------------------------------------ --------------------
------------------------------------------------------------ --------------------
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Re: Problema con Printer:oCanvas.
- ignacio
- Site Admin
- Mensajes: 9441
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Problema con Printer:oCanvas.
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
- Mensajes: 203
- Registrado: Vie Abr 01, 2005 9:05 am
Re: Problema con Printer:oCanvas.
Ignacio,
El programa esta basado en el ejemplo que dices.
Tengo puesto
Printer:oCanvas:nMapMode := mmHIMETRICS
La diferencia está en que en el ejemplo se imprimen las lineas con
:nMapMode := mmSIMULCHAR
y usando :TextLines().
Por mi parte lo que quiero saber es la altura que tiene el font con el
que estoy imprimiendo para poder controlar como yo quiera las lineas de
impresion.
Saludos
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> Jose Alfonso,
>
> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo hoja de
> ejemplo, a ver que resultados tienes.
>
> No obstante te recomiendo que utilices siempre un MapMode en milimetros, de
> esa forma, te evitarás cualquier problema de resoluciones de impresora.
>
> Un saludo,
>
> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
>
>>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ágenes.
>>
>>Saludo,
>>
>>
>>Jose A. Suarez
>>
>
>
>
> ------------------------------------------------------------ --------------------
>
>
>
>
>
>
> ------------------------------------------------------------ --------------------
>
>
>
>
>
El programa esta basado en el ejemplo que dices.
Tengo puesto
Printer:oCanvas:nMapMode := mmHIMETRICS
La diferencia está en que en el ejemplo se imprimen las lineas con
:nMapMode := mmSIMULCHAR
y usando :TextLines().
Por mi parte lo que quiero saber es la altura que tiene el font con el
que estoy imprimiendo para poder controlar como yo quiera las lineas de
impresion.
Saludos
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> Jose Alfonso,
>
> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo hoja de
> ejemplo, a ver que resultados tienes.
>
> No obstante te recomiendo que utilices siempre un MapMode en milimetros, de
> esa forma, te evitarás cualquier problema de resoluciones de impresora.
>
> Un saludo,
>
> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
>
>>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ágenes.
>>
>>Saludo,
>>
>>
>>Jose A. Suarez
>>
>
>
>
> ------------------------------------------------------------ --------------------
>
>
>
>
>
>
> ------------------------------------------------------------ --------------------
>
>
>
>
>
-
- Mensajes: 203
- Registrado: Vie Abr 01, 2005 9:05 am
Re: Problema con Printer:oCanvas.
Ignacio,
Solucionado:
nPaso := ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * 100
Había entendido, no se por que, que :TextHeight( "." ) devolvía la
altura del texto en las unidades seleccionadas con
Printer:oCanvas:nMapMode := mmHIMETRICS, pero devuelve pixel, que hay
que cambiar a las unidades de trabajo.
Saludos,
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> Jose Alfonso,
>
> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo hoja de
> ejemplo, a ver que resultados tienes.
>
> No obstante te recomiendo que utilices siempre un MapMode en milimetros, de
> esa forma, te evitarás cualquier problema de resoluciones de impresora.
>
> Un saludo,
>
> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
>
>>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ágenes.
>>
>>Saludo,
>>
>>
>>Jose A. Suarez
>>
>
>
>
> ------------------------------------------------------------ --------------------
>
>
>
>
>
>
> ------------------------------------------------------------ --------------------
>
>
>
>
>
Solucionado:
nPaso := ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * 100
Había entendido, no se por que, que :TextHeight( "." ) devolvía la
altura del texto en las unidades seleccionadas con
Printer:oCanvas:nMapMode := mmHIMETRICS, pero devuelve pixel, que hay
que cambiar a las unidades de trabajo.
Saludos,
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> Jose Alfonso,
>
> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo hoja de
> ejemplo, a ver que resultados tienes.
>
> No obstante te recomiendo que utilices siempre un MapMode en milimetros, de
> esa forma, te evitarás cualquier problema de resoluciones de impresora.
>
> Un saludo,
>
> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
>
>>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ágenes.
>>
>>Saludo,
>>
>>
>>Jose A. Suarez
>>
>
>
>
> ------------------------------------------------------------ --------------------
>
>
>
>
>
>
> ------------------------------------------------------------ --------------------
>
>
>
>
>
- ignacio
- Site Admin
- Mensajes: 9441
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Problema con Printer:oCanvas.
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
------=_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
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
- Mensajes: 203
- Registrado: Vie Abr 01, 2005 9:05 am
Re: Problema con Printer:oCanvas.
Ignacio,
No tengo esa ayuda.
Saludos
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> Jose Alfonso,
>
>
> Saludos,
>
> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
> <mailto:jasm.nospam@chochurro.com>> escribió en el mensaje
> news:[email=42adfb1b@ozsrvnegro.ozlan.local...]42adfb1b@ozsrvnegro.ozlan.local...[/email]
> > Ignacio,
> >
> > Solucionado:
> >
> > nPaso := ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * 100
> >
> > Había entendido, no se por que, que :TextHeight( "." ) devolvía la
> > altura del texto en las unidades seleccionadas con
> > Printer:oCanvas:nMapMode := mmHIMETRICS, pero devuelve pixel, que hay
> > que cambiar a las unidades de trabajo.
> >
> > Saludos,
> >
> > Jose A. Suarez
> >
> >
> > Ignacio Ortiz de Zúñiga escribió:
> >> Jose Alfonso,
> >>
> >> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo
> hoja de
> >> ejemplo, a ver que resultados tienes.
> >>
> >> No obstante te recomiendo que utilices siempre un MapMode en
> milimetros, de
> >> esa forma, te evitarás cualquier problema de resoluciones de impresora.
> >>
> >> Un saludo,
> >>
> >> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
> <mailto:jasm.nospam@chochurro.com>> escribió en el
> >> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
> >>
> >>>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ágenes.
> >>>
> >>>Saludo,
> >>>
> >>>
> >>>Jose A. Suarez
> >>>
> >>
> >>
> >>
> >>
> ------------------------------------------------------------ --------------------
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> ------------------------------------------------------------ --------------------
> >>
> >>
> >>
> >>
> >>
No tengo esa ayuda.
Saludos
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> Jose Alfonso,
>
>
> Saludos,
>
> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
> <mailto:jasm.nospam@chochurro.com>> escribió en el mensaje
> news:[email=42adfb1b@ozsrvnegro.ozlan.local...]42adfb1b@ozsrvnegro.ozlan.local...[/email]
> > Ignacio,
> >
> > Solucionado:
> >
> > nPaso := ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * 100
> >
> > Había entendido, no se por que, que :TextHeight( "." ) devolvía la
> > altura del texto en las unidades seleccionadas con
> > Printer:oCanvas:nMapMode := mmHIMETRICS, pero devuelve pixel, que hay
> > que cambiar a las unidades de trabajo.
> >
> > Saludos,
> >
> > Jose A. Suarez
> >
> >
> > Ignacio Ortiz de Zúñiga escribió:
> >> Jose Alfonso,
> >>
> >> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo
> hoja de
> >> ejemplo, a ver que resultados tienes.
> >>
> >> No obstante te recomiendo que utilices siempre un MapMode en
> milimetros, de
> >> esa forma, te evitarás cualquier problema de resoluciones de impresora.
> >>
> >> Un saludo,
> >>
> >> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
> <mailto:jasm.nospam@chochurro.com>> escribió en el
> >> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
> >>
> >>>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ágenes.
> >>>
> >>>Saludo,
> >>>
> >>>
> >>>Jose A. Suarez
> >>>
> >>
> >>
> >>
> >>
> ------------------------------------------------------------ --------------------
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> ------------------------------------------------------------ --------------------
> >>
> >>
> >>
> >>
> >>
- ignacio
- Site Admin
- Mensajes: 9441
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Problema con Printer:oCanvas.
Jose Alfonso,
Es de la PR3A, supongo que la habrás descargado.
Un saludo,
"Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
mensaje news:42ae9fb8$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio,
>
> No tengo esa ayuda.
>
> Saludos
>
> Jose A. Suarez
>
> Ignacio Ortiz de Zúñiga escribió:
>> Jose Alfonso,
>> Saludos,
>> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
>> <mailto:jasm.nospam@chochurro.com>> escribió en el mensaje
>> news:[email=42adfb1b@ozsrvnegro.ozlan.local...]42adfb1b@ozsrvnegro.ozlan.local...[/email]
>> > Ignacio,
>> >
>> > Solucionado:
>> >
>> > nPaso := ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * 100
>> >
>> > Había entendido, no se por que, que :TextHeight( "." ) devolvía la
>> > altura del texto en las unidades seleccionadas con
>> > Printer:oCanvas:nMapMode := mmHIMETRICS, pero devuelve pixel, que hay
>> > que cambiar a las unidades de trabajo.
>> >
>> > Saludos,
>> >
>> > Jose A. Suarez
>> >
>> >
>> > Ignacio Ortiz de Zúñiga escribió:
>> >> Jose Alfonso,
>> >>
>> >> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo
>> hoja de
>> >> ejemplo, a ver que resultados tienes.
>> >>
>> >> No obstante te recomiendo que utilices siempre un MapMode en
>> milimetros, de
>> >> esa forma, te evitarás cualquier problema de resoluciones de
>> impresora.
>> >>
>> >> Un saludo,
>> >>
>> >> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
>> <mailto:jasm.nospam@chochurro.com>> escribió en el
>> >> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
>> >>
>> >>>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ágenes.
>> >>>
>> >>>Saludo,
>> >>>
>> >>>
>> >>>Jose A. Suarez
>> >>>
>> >>
>> >>
>> >>
>> >> ------------------------------------------------------------ --------------------
>> >>
>> >>
>> >>
>> >>
>> >>
>> >>
>> >> ------------------------------------------------------------ --------------------
>> >>
>> >>
>> >>
>> >>
>> >>
Es de la PR3A, supongo que la habrás descargado.
Un saludo,
"Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
mensaje news:42ae9fb8$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio,
>
> No tengo esa ayuda.
>
> Saludos
>
> Jose A. Suarez
>
> Ignacio Ortiz de Zúñiga escribió:
>> Jose Alfonso,
>> Saludos,
>> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
>> <mailto:jasm.nospam@chochurro.com>> escribió en el mensaje
>> news:[email=42adfb1b@ozsrvnegro.ozlan.local...]42adfb1b@ozsrvnegro.ozlan.local...[/email]
>> > Ignacio,
>> >
>> > Solucionado:
>> >
>> > nPaso := ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * 100
>> >
>> > Había entendido, no se por que, que :TextHeight( "." ) devolvía la
>> > altura del texto en las unidades seleccionadas con
>> > Printer:oCanvas:nMapMode := mmHIMETRICS, pero devuelve pixel, que hay
>> > que cambiar a las unidades de trabajo.
>> >
>> > Saludos,
>> >
>> > Jose A. Suarez
>> >
>> >
>> > Ignacio Ortiz de Zúñiga escribió:
>> >> Jose Alfonso,
>> >>
>> >> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo
>> hoja de
>> >> ejemplo, a ver que resultados tienes.
>> >>
>> >> No obstante te recomiendo que utilices siempre un MapMode en
>> milimetros, de
>> >> esa forma, te evitarás cualquier problema de resoluciones de
>> impresora.
>> >>
>> >> Un saludo,
>> >>
>> >> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
>> <mailto:jasm.nospam@chochurro.com>> escribió en el
>> >> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
>> >>
>> >>>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ágenes.
>> >>>
>> >>>Saludo,
>> >>>
>> >>>
>> >>>Jose A. Suarez
>> >>>
>> >>
>> >>
>> >>
>> >> ------------------------------------------------------------ --------------------
>> >>
>> >>
>> >>
>> >>
>> >>
>> >>
>> >> ------------------------------------------------------------ --------------------
>> >>
>> >>
>> >>
>> >>
>> >>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
- Mensajes: 203
- Registrado: Vie Abr 01, 2005 9:05 am
Re: Problema con Printer:oCanvas.
Ya la encontré.
Gracias.
Saludos,
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> Jose Alfonso,
>
> Es de la PR3A, supongo que la habrás descargado.
>
> Un saludo,
>
> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
> mensaje news:42ae9fb8$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>>Ignacio,
>>
>>No tengo esa ayuda.
>>
>>Saludos
>>
>>Jose A. Suarez
>>
>>Ignacio Ortiz de Zúñiga escribió:
>>
>>>Jose Alfonso,
>>> Saludos,
>>> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
>>><mailto:jasm.nospam@chochurro.com>> escribió en el mensaje
>>>news:[email=42adfb1b@ozsrvnegro.ozlan.local...]42adfb1b@ozsrvnegro.ozlan.local...[/email]
>>> > Ignacio,
>>> >
>>> > Solucionado:
>>> >
>>> > nPaso := ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * 100
>>> >
>>> > Había entendido, no se por que, que :TextHeight( "." ) devolvía la
>>> > altura del texto en las unidades seleccionadas con
>>> > Printer:oCanvas:nMapMode := mmHIMETRICS, pero devuelve pixel, que hay
>>> > que cambiar a las unidades de trabajo.
>>> >
>>> > Saludos,
>>> >
>>> > Jose A. Suarez
>>> >
>>> >
>>> > Ignacio Ortiz de Zúñiga escribió:
>>> >> Jose Alfonso,
>>> >>
>>> >> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo
>>>hoja de
>>> >> ejemplo, a ver que resultados tienes.
>>> >>
>>> >> No obstante te recomiendo que utilices siempre un MapMode en
>>>milimetros, de
>>> >> esa forma, te evitarás cualquier problema de resoluciones de
>>>impresora.
>>> >>
>>> >> Un saludo,
>>> >>
>>> >> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
>>><mailto:jasm.nospam@chochurro.com>> escribió en el
>>> >> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
>>> >>
>>> >>>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ágenes.
>>> >>>
>>> >>>Saludo,
>>> >>>
>>> >>>
>>> >>>Jose A. Suarez
>>> >>>
>>> >>
>>> >>
>>> >>
>>> >> ------------------------------------------------------------ --------------------
>>> >>
>>> >>
>>> >>
>>> >>
>>> >>
>>> >>
>>> >> ------------------------------------------------------------ --------------------
>>> >>
>>> >>
>>> >>
>>> >>
>>> >>
>
>
>
Gracias.
Saludos,
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> Jose Alfonso,
>
> Es de la PR3A, supongo que la habrás descargado.
>
> Un saludo,
>
> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> escribió en el
> mensaje news:42ae9fb8$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>>Ignacio,
>>
>>No tengo esa ayuda.
>>
>>Saludos
>>
>>Jose A. Suarez
>>
>>Ignacio Ortiz de Zúñiga escribió:
>>
>>>Jose Alfonso,
>>> Saludos,
>>> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
>>><mailto:jasm.nospam@chochurro.com>> escribió en el mensaje
>>>news:[email=42adfb1b@ozsrvnegro.ozlan.local...]42adfb1b@ozsrvnegro.ozlan.local...[/email]
>>> > Ignacio,
>>> >
>>> > Solucionado:
>>> >
>>> > nPaso := ( :TextHeight( "." ) / Printer:Resolution()[2] * 2.54 ) * 100
>>> >
>>> > Había entendido, no se por que, que :TextHeight( "." ) devolvía la
>>> > altura del texto en las unidades seleccionadas con
>>> > Printer:oCanvas:nMapMode := mmHIMETRICS, pero devuelve pixel, que hay
>>> > que cambiar a las unidades de trabajo.
>>> >
>>> > Saludos,
>>> >
>>> > Jose A. Suarez
>>> >
>>> >
>>> > Ignacio Ortiz de Zúñiga escribió:
>>> >> Jose Alfonso,
>>> >>
>>> >> Por favor ejecuta el ejemplo de PrinterInfo e imprime en ambos lo
>>>hoja de
>>> >> ejemplo, a ver que resultados tienes.
>>> >>
>>> >> No obstante te recomiendo que utilices siempre un MapMode en
>>>milimetros, de
>>> >> esa forma, te evitarás cualquier problema de resoluciones de
>>>impresora.
>>> >>
>>> >> Un saludo,
>>> >>
>>> >> "Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com
>>><mailto:jasm.nospam@chochurro.com>> escribió en el
>>> >> mensaje news:[email=42aa05b6@ozsrvnegro.ozlan.local...]42aa05b6@ozsrvnegro.ozlan.local...[/email]
>>> >>
>>> >>>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ágenes.
>>> >>>
>>> >>>Saludo,
>>> >>>
>>> >>>
>>> >>>Jose A. Suarez
>>> >>>
>>> >>
>>> >>
>>> >>
>>> >> ------------------------------------------------------------ --------------------
>>> >>
>>> >>
>>> >>
>>> >>
>>> >>
>>> >>
>>> >> ------------------------------------------------------------ --------------------
>>> >>
>>> >>
>>> >>
>>> >>
>>> >>
>
>
>