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.

Código de Barras

Foro de Xailer profesional en español
Responder
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

Código de Barras

Mensaje por jose.luis »

Hola,
¿Alguien conoce alguna solución para imprimir código de barras (code39) sin
usar fuentes?
--
Saludos,
José Luis Capel
www.capelblog.com vuelve a estar online!!
Avatar de Usuario
gerencia
Mensajes: 282
Registrado: Sab Jun 20, 2009 6:01 pm

Código de Barras

Mensaje por gerencia »

This is a multi-part message in MIME format.
--------------020504050200010005010501
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000066">
Jose, <br>
<br>
Esto lo baje del Foro hace mucho rato, es una modifcacion de la
Timprime de Thefull y la Barlib de Cayetano Gomez<br>
<br>
Espero te sirva,<br>
<p style="margin-bottom: 0cm;"><font size="2"><span
style="background: transparent none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><b><font
face="Century Gothic"><font color="#000080">JosÃ
David Angulo.</font></font></b></span><font face="Arial"><font
color="#0000ff"><br>
</font></font></font><font face="Arial"><font color="#0000ff"><b><font
style="font-size: 11pt;" size="2">A<span lang="en-GB">uditorÃa
y Sistemas Ltda. </span></font></b><br>
<font style="font-size: 8pt;" size="1">Tel.</font></font></font><font
size="1"><font face="Century Gothic"><font color="#808080">(57)
5- 6643022 – 6644555</font></font></font></p>
<p style="margin-bottom: 0cm;"><font size="1"><font
face="Century Gothic"><font color="#808080">Cartagena - Colombia</font></font></font><br>
<a href="mailto:Gerencia@microexpressltda.com"><font
style="font-size: 9pt;" size="2">jose.angulo@auditoriaysistemas.com</font></a></p>
<br>
<br>
Josà Luis Capel escribiÃ:
<blockquote cite="mid:47434d1f$1@ozsrv2.ozlan.local" type="cite">Hola,
<br>
<br>
ÂAlguien conoce alguna soluciÃn para imprimir cÃdigo de barras (code39)
sin usar fuentes?
<br>
<br>
</blockquote>
<br>
<br>
<div class="moz-signature">-- <br>
<meta http-equiv="CONTENT-TYPE" content="text/html; ">
<title>Josà David Angulo</title>
<meta name="GENERATOR" content="OpenOffice.org 2.0 (Win32)">
<meta name="CREATED" content="20061023;14550935">
<meta name="CHANGEDBY" content="Jose Angulo">
<meta name="CHANGED" content="20061023;14593800">
<meta name="ProgId" content="Word.Document">
<meta name="Originator" content="Microsoft Word 9">
<style>
<!--
P { color: #000000 }
-->
</style>
<p style="margin-bottom: 0cm;"><font size="2"><span
style="background: transparent none repeat scroll 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><b><font
face="Century Gothic"><font color="#000080">JosÃ
David Angulo.</font></font></b></span><font face="Arial"><font
color="#0000ff"><br>
</font></font></font><font face="Arial"><font color="#0000ff"><b><font
style="font-size: 11pt;" size="2">A<span lang="en-GB">uditorÃa
y Sistemas Ltda. </span></font></b><br>
<font style="font-size: 8pt;" size="1">Tel.</font></font></font><font
size="1"><font face="Century Gothic"><font color="#808080">(57)
5- 6643022 – 6644555</font></font></font></p>
<p style="margin-bottom: 0cm;"><font size="1"><font
face="Century Gothic"><font color="#808080">Cartagena - Colombia</font></font></font><br>
<a href="mailto:Gerencia@microexpressltda.com"><font
style="font-size: 9pt;" size="2">jose.angulo@auditoriaysistemas.com</font></a></p>
<p style="margin-bottom: 0cm;"><br>
</p>
</div>
</body>
</html>
--------------020504050200010005010501
Content-Type: application/x-zip-compressed;
name="Codebar.zip"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
filename="Codebar.zip"
UEsDBBQAAgAIAGmZIjUEzZRxygAAAB8BAAASAAAAU291cmNlL0NvZGViYXIu cHJnXU5Ni8Iw
EL0X+h+G7qXtwXY9CAb2IIo3l8X14DVOBjuQTcqYIP5u/8Am1YN4GXhv3lfX QllACz/ib4TB
qwfcMg4kCa29oZOW2Sjn6bGhCwqPyHenYHc30XowBOSCaKNBg01ntIw6SybL KgYv6hFLOGgF
/bzrl9287xeZ7cqiLD7YoY0pqTpqtiQzHKrMp11IJgrBTrOrm8wBwGqcOgJ7 p/DAwRKoL6ie
a6tJc9h6+fusG/VN1/rVAY36Hfw1h71F7eOzYk8hSpr/D1BLAwQUAAIACACh YSU1w+2BZw0B
AAC2AwAAEAAAAFNvdXJjZS9Gb3JtMS5wcmfFkM9Kw0AQh++BvMNQL7VgN01B MLc2f/DQJCWJ
4HW7Gc1imi2TBPS5fQHdTQ8Vg/UgdU/DN8NvZz42sy2YwZbUG4pOeeCrEnec DI2kqJA+YaRo
v5gf6NngAFtB8iDke+MZsOo7RUMZoai4B47LnDvmOs6tpsy2bOtKNqLuS4TJ I5c10lxUE839
zSrPoTBfQJSl8VDrFgD4abxNkzApQK37rlPNYhy743h5jInD4j4NwCfkHer4 6fUpP0b7tRQv
U1A5NiUSjIy450eW30dsK0wCc+dXEYPW16e9EcHYzZ8+nfnzfXDqfrhEZijk Tmk9WVg8ZAkk
sr7Idu757daciLf/sNvyN+Y2su14eRF1H1BLAwQUAAIACAChYSU1jecjgxwB AAACAwAAEAAA
AFNvdXJjZS9Gb3JtMS54Zm2l0EFrgzAUB/C74Hd4eBgKHjRaKcIO01rcaBWM o2en6RrWJUMj
28dfkrnVXWRll5DkPf/vF/dZnZcbSHvSCLLl/avtQLq7wxhqdfJNwzQAAI9v pI/nXfo6jjER
CR9ZN9iAkOeCr5ZwJZfA8+C7i285ExDfqlAmbGdKssHaY8ANGwCTnh4tF9Yu qIDZtyw9U8LE
gXbipCLCEP2u5IQ+n3Q6iqKpNOU7E/9wX+dQJg9ZWitNMgrBma9BX3tJKsi7 LRnn4zRZ5cxe
FyD5pEgCJQ+tZj1tTT70dOumIi194tZPqVTC9kUXp5n64tJxccpTVmyWvOhq b7Re9iZN3zfD
khf9wxtc7fU9bxm8o4NousU/HPxBXGX1Y1VojGl8AlBLAwQUAAIACAArXyU1 +fmVFn8LAADF
KAAAEQAAAFNvdXJjZS9yZWNpYm8ucHJntVrNcttGEr6rSu/Qhb3ICQMB4L9S e4BJyIaLJGiQ
cuJctkbAWJoUCCj4oS2d8o77BH4AH7Zyy2l7ZgASACkQ2k2YigUMZrp7vumf r0Fefnd+Bt/B
Mo4eqZdGVzCJfHpLYjF6zbx7GuNgTD12G6kP8Z0Yn9LEi9mDx/4Ir8SAmaVR LC+vqXdPrkAz
LrXxpaFpAz56eX52fvYPFnpB5lNQfiYsoLHq3Svl0SxlwUMcyuHzs+ss9FIW hbBhrlB/8QpF
AayLu6sF/XwBOBjTNItDCFnA101m5mpVzIJr15nD2p4vXXtuifVTc21CNIvu otKtGTMSjDW+
Hsfm1vqtMwUu/1V5YEJuqUdjwketxVRo4kvOz8oroGKBWD+LPBKUlOb3Va1X V2ICXvwT1kvm
4aYo7nIWEf8ClAAfKfCqmJkvBZDTr6MwzRGRU36y12/Bef3OmqxL08UjvsRb kA3lKxXxRNk9
CFfsSTwoTQ5eR4HPx9RrVQzi3oUCuXcxlCMM9sJeg7KMM3QiwFOVnqPA0rU+ 2NZP+Wz8LM03
VnEttlQGV46hGjmrogFHy3BdoTOm6L0XdWjKD87PXOkj6lotHddeJdQPTQi7 vMQpvxJYZQ80
ZlG8Gy5s6aqa1gFdxz+wMj8imgrAtbPYYz7ow8SZOS7Kd//1xjU/1najqf0O /jOUyydLF4Hv
a8Z4rED1U5E6uq2Jee38DGiFFJVGYPBrQ4OlteCLljQsNrSiDyQmHgYWTaQv 2gvLlIv76hjj
y5GrxQ3UJZRmj9Tefra4aZothBWzx7kPPDtbN3AfxWxx0zh7oPb3s/lNdXYF Kl01OoA4jUTw
CNiXlms7UwemFndLRzmK+eCIFMSou5Mycab2GyHEmtsrxzWVllIQu72UuTNV 62ffSspY1fc7
cq1ry7UWE9tEnN7f2FNzYjsL5aQUhLqEiz21Fmv72p7kq9vagkcwKEmZLx13 jajcuM5KabUj
Q+yopw73UhaqjemngBaulLZSBmpP30l5rxvdXn8wfKuciK4DMSO1r5WOejGx luhxV0rbQxJS
dI1nigMp6DKz2kGdMmnIYz0HqH7iU2duT+yZLURJE+uGCWk8aXQ7HGaeMvDM DlJGRelYNXh4
7XKd9c6aL2emizGDB2LNMNEt1q79+uYjeo313EGPajL7VZkrdJSpM7mZowwH Fg6sLBT+wZzZ
GJ8rewETy927JBbmibnAG3Dg2nbnJpg3a8e1fzGnh5l4n9StAKwsjoCGcBez pLbPg6T+e10U
1t3GpG7PsWzt6jkabYhtatyFcFdddchR79e0jtHLdLWb+wbCSYKAAiZi+AGE 28Iyug0IZ13K
Aaz9qoP0VL0sbU2DT+oVl6Ki96vD0UF5OSGtW5Z2Tb6o8P9I65elff78WQ3I A7ljIflMb1Uv
2iinpO2L2V0W+lHOMvLRH/7Wz7PUoJwE//eqXq/p5aKuH6vqx+t6RVBeKSsl Xm+o8cfWFcVe
b6j2x9YVZV9vqPvH1hUEQG9gAEfX5VRAb8cFSmSgkQk017wSGWhkAm2kCDLQ yATaSBFkoJEJ
tJAiyUAjE2gjRZCBRibQLKVEBhqZQBspggw0MoHmmNRLZKCRCbQwRpKB00zg hD2cCezBaaQB
R+thJd3s6YD+LB/g2caJfSye2N/50YZ5LGCiLNWjq4teyAWO6tvcGWe6L8mI KLBfEVhU+4n9
7wXHrrRlOcCDeCUC8Z3lTvAZ3i0dJBkY5q61Uk42VnpPsIG9yiVmWdiQxygG rFSRz3zicyJB
/hMlkGQeTdg2Sjr4MASPxFj/cToDL6NhSuAR7kmCf8OMbvHJliVRR4Efd43w 9wokLN6SMKGQ
xmTDUhID5SsqQMMtCVE4I8CTPvyW4Wwa3pFnqV5pO0ZlO/QTf+0DQlDKYn6k AUngIf7jC9vg
RcB+y3CLsq7g0wB+lp/a3+omxAPCd7AVq1AmYpQKrK7guJWVstroVj1MKGIP OWeUgpXW4Sc8
vV+cq3D2PqdkA7x5tlTkRabPqRD+I4saLoP89lR1yheOqgtHLRcOqhoHhxqP QTRU81N2PiGa
ITkB0RGQQArZQTRWtXYQDXnhzQ3O71ptdIQK9uvEXct1/cq6fht8sKOR+EzV ifpycKSAHTaY
z4124Iw5m9kZK+5OG4vie3kaFbnkJfYWIvrqIKfwLN4QEc4pS7OA5IGfpyml 7f6FTXsA+njX
CgBcNy4hIG9bnTNyil55pd6GiRYrx9WVrXUaVZ1Ge51GVafRXme3qrPbXme3 qrPbXmevqrPX
XmevqrN3qLPukfJtgvbc6wRkQZxxTs0pb7XN18j0pjmRrr9OKArHTZCyTQRr LJvR4Xvpekuu
V3ty/WhTrr+8K29sffWX9+Wn5L20Mz8l76W9eaM8nicM0QyLDo6/mDbE3RAd 5Bm/MnTBGnms
HG/K4IMzu1msTRwEUE6/vtPlO6a9vPH4cjS65IenwPcowZyB8n11+AQrNHTB HjRtJ/Pa4W+f
cgs7gI78iwMfwbUmN+4KSef7G3zkOhMLGynllL29Btl4vFYAbPMQxSnlWVuw wx1NQ274kFEc
vicejZFFCoKHlBTDCYNqBQ42cfbCXDW+C0YbBlUbUPuX4gPizRmniTmnQ47n RQG5jWLi4/8J
2rib+ygupasozVUFfaOGqoQRdxzC9huBbRRkWJ4475U0OkDO7X9DhX20CXsV XtA2aE3C7jKG
xlEcZuGG+oyg791/vWUBPERJKl7ZdOBEF4z2GFV7Enr3ZyjoNtbKMEoZ8ioJ esIRf0QaHUd+
5jGfQ5TGdG+hjkggn/oDGyu8+lPmqsJeEkqTVOWEPXXPwLgM2BPh6nBnAXni MpHLY47bgRV1
EAMvi2MWf70IX/Gz45PjyENcNhwmsYh+IZ70H2xtWvXUaE/NS/ghoSjyENMN 18uRQmQwY25J
/JV3BDTesDASOrBDQqikcoTTvKOhhydr4cGmJChGfZzPkjQuMmyzPaOqPeuY 3WbCYTp825+y
UOyQ92YB6mUJxkqSRjkkkyjc0pAJg5YxjysxG+9WNN4ig46S4lSRKWFr5pPm 8+rW/bnY4+M+
mP7Kj3oCn27dn6d0y9vG0I94pgj4e1TRspbPkHHfpIns43y6wQDv4AYQsiTD DhcbWJEKPAwr
/CNPvOW3PN26P4voefJICBdgxuk3L8NjGo2QV5u8P+V+7r8SUePSu4BshO++ oSGNpcO4aH8m
06B69M3ZqfOq+bPSnK969fPdpfsi1a+tFaavZeTHX0OOrohCjl1MMQ8xbmhH RH+TQ7QLxl79
cJ+VF2FWFDrRjd/xHMF//rFl3DMFim8RQBr6JA9BDIuE/kpjGdsWBk+0wWul 2ZjayT7upHZg
SgN6J2Orqnjy1WdPnVyttAyvTVwUZDxsLmooQVtkBi2REUJFhiSbW4x27t5J kTCL7JqFImcj
DtIhaeLT9l8D9uo5SoYdu/22K+blwtIBni0zn0MXYV3bZEFKQooNm7RQ+BQa +SOeaRZiiaRP
gNmf5yYE8VSB69cdeIsok13KRd7AKxrd8vwpPAaNfZc93cl98xyKzpHynBYl 0Q9meWFUhw1z
jHLCmJoDb3jW6eQG8LdtWViU20/0XrgTmkSglgFbf5qNGdaoCH/RNslIgESL IvpeQGRN4gfk
8x8wca/x8KTwIX+/x3FIIJJvXjglAqW1MQeE8/AbxYHa5V8Gcfv4Lx+GnFYP 1N2PiXYbGckj
Nto5f0PyaeSsI2FNSQt2SjPiiV7pSKcESvPXwihvUJX30m8wD+SNq/Je+h3m qPitU9Ftyp84
iaLoRT6TRfOWxLGohXitG6N6zztQR/xlB3a0UwsfY8vBvxXU9aGhdzVt0NM0 rTce9YbaeKQN
NF3jn0HfUGCOCxBTBVb2LyinKnXIe9Ti6562EhsL299i519kZvGfa61v3AUs 7Nn52X8BUEsD
BBQAAgAIANpjJTUgaeS2tRgAAFZuAAATAAAAU291cmNlL1RpbXByaW1lLnBy Z+087XLbRpK/
z1V+h4luUyREiCRISpZ5obcoioqZ6GtJerMbl8s1AkcSIhBgAFC2nMq7XO09 4v7f2u75AAYk
OCRtKZu9OyYWiZmenu6e7p7uHgC13efPyC65jMIH5iZhm3jTWeRNvYg3n3ju LYugdSyaWXUW
3fCeYxa7kTdzvb8Hbd7QnSdhJH6eMPeWtknjZa1+WGvU6wfYWnv+7Pmz//QC 159PGNn5C/V8
FlXd2x1sryEVBKiYsytKoL8XBvcsigE7XvmU9HwaMzIeCDLIA7b53lXEIo+S IxrBb5uMPAb9
jCQRvaI/0WkYExaQ3hSnAPSKCXL1QIb0GpDSaBoGlJTJ+JadzH2fWBwQ8J16 VwjWow8soUFI
vg2n7JPEM/JIEk5Ccj0PXA/Hs5jcRNT1aEzgwvdhXps8UPLznMElcf8+8W5C cktJ7MGwqRd4
UzplQcLINJx4155LJ6FNZiBpjj/2CPVhwDX1kcsQGgA4xGncuT+jgIGS9l5Z kuPs1V/uoZjJ
HsgNWAyv6ISigFKGb1jAIhrA5BFzvSugDwToxQnMG3Mc+xqOM0bcMLj2oikN OAvIjxvCOjiN
Q3IimQ5sPlB8/kpxCBAI3DEymzOYaUIj3jgPiEs5+QHHNEFmgJX2nmUhB8+f Cd14/qx32h2N
YI3PLoeDs77k7rg77pKgF86D5NQLGCGD88GYNA4XO3uhT2Sno3WGXVAQ/8AW 34dX6of83get
Eb+cevqrkbVl3Y0rDelRNI9v7fCSBRoZY/Yx6fmR1nJJbzxQD0FU1u6OZiFQ y5t3lErvaOOQ
UUpSdnKs+vMpoFzq8WEuxgUhuqonVW1YP5gI4emfWg3sW9nX3E9AKUEpYGYp eeg/Y8ltOMHV
D+IkmoODiFgsu8/649cXx2QQeElZsmQDGRG799gHG0mdeSyGplNQvJFLZ4xY cubexfloPHzT
G18Mt0C1yXCPJkyhEPCD89PBeZ+02zp2YqU8KhbBoa3gEIRXthYaODIrQy5h 8gPRGPlSlkkw
moN0c1hGbEYjCvNh74y6LN+drmc692jU/bZP+j+Bn+ZikIDv3/OmspWf/Kx/ drHYhhoKIsAv
m2sZl60Pzio8CUFz8NKPsBt/Ht2dodHbxL2kkzxxiiv4dgQOhwiMDSKu8Rvt Iz/uKPyYHyUH
yTG2siw+FFRgCAKYQOePdvBjY0F89GEwBRmVSci/7SK8KTELgnCvesAauLMy lwLC2C42gU1H
XpDYLrLO28PI9l+H0Sc7+MGbJLd28Jp5N8mttYyu+f7lEjq/d8vcuy0Q9Wng NJfQGMaDlI5o
AO7ddnENOaP982PuS4VCFlnXGjtNNVmZHn7aHTIYnJTTtk6HnA9ObVLXLJQP arellYlBck7Z
pdwk7+qdDt8fnXZ736cTgtPpRYy6cuc/mfPNQna228prK4LGyHPZap+zD9JO fhiMX5OLo+/6
vbEGr/aqtnsOOy+O3OE9O2lHMPI+8Y79tMk/Cv0JNlXHwpmCXDn+BXIOyHbk HGxBzUEBNSdG
ag63I+ZwC2IOtydmy5U6vPpCcswr5dS3Icapb0GMBrypcCC82Iqaqy8lZ41w GlsJp7ENNY3t
hdPYSjiNqy8lp0A4yiPxTUlcwoT8ipPGf0najkbvRxeng2M7c2pZkEF4pKj4 w21R8Aa/5HBy
mY53NBRExyFctmzg+xSL2sqTIz4/BdEA3O/Cq7GX+Jxz5ZoLUcCeR31dFgpA uXd05vJ3vv8i
wqCeJpAYpNtEtp/Y5PjsYjjon4/fn3bPj0e97mVfa7u8GI6HXYhZLV3mb5YD Utg8VCALk5Sz
6S9hkuiUBbAdkhqofh1Cvz0nxabgRgmNkuPQlXqkmsMeDe5p3A7O6IxHPIB8 On0NKch4OOjx
TXTIknkUkJj51zxdre096kfbpfOBpHcNTGuhvRDNn+YepIpkFsKuj6E5pnER 7pYznm+o3RJh
2+3FOJIFkHEuCAYmlWLhzYPrJdVQ9qLaZfMyznSPa/OAOnwQIJl/X9Fe3Ly/ Atypr2hvrIJf
haiR60h5AMNcGsCtPQ8t9WL0hHqx+7gfrLWoHJ4n9wFP7iEH5aWX2CMJCxhW TrATIjHf+wSJ
/BxyTqFdJJize4oi6fskpj4k9qnmgYGQWRRO5pDMuHNeb4DUUmSzcXgVQcYT 88LEBBLeIAYS
EM+1F3sulXnobfgTxUrBPYsSaPW5I+rHMAsSOsE6wxSrGDEkrKD2ZB5jmWFO /Z/RKEjizSQ9
MwbkQXqLvPmACRlmMUc38jjhKUcTdj9n/j1DvwcZA4wK1e6EpYlHX4HU2JcT RLJYA8EYnHel
0Te/0mNvlVoq6z1BRymE/gq8pOY1KxJYxunCpQpI3BW1Rlm5qGitmrNAn1K2 Fju4e813SfvQ
9tbBiWY3XMhP6k6Xk2zbJOrTEFQO0k6WSMnzIZno+WUq++q+LdssdMu81Bhn TkRKFmQogLAV
UYt9uGDtEQn0h1HADRGM6ZZKe8K64YKxaXIUBP+b+J9dghUvhtZP6DwJpzSR 5j8PyBm4HgQR
dQnMEEXBi7fxwgU2Ym1DQKlg4DQMbrxkPpFehEcNGliqBggrLrgDnDDNh/FB VXIJUMfsmoKD
wSUmLq4pIOElkja5uPoJlkiEpYQK/4P4cFovZQwRu3Q6w3qo5Mj/bj6dtdH5 gGeNUheL0zPu
XwXRLtZu79knUTwOEg75BMugl4mIKDXwuhAXqZ1JzOZ8pxUIZKLAdlD3MMgV xV1NNcFSntjE
swAHTWgLwvynIozH6uE9+BJc5FS/pE9lxAs81+N9fC/V7HmxpFfko4r9cKET Bmb74zfD8ycN
UB6jtrjaFwfYD0Zb19u6gXsbQmuu8cKfcB1VlSsgIV+2wgb03Z5vp95ZkCr3 w0CcIeQqXb4+
RDojyZkaJLnKBskGbaCseWkysLLdmovgq44wFbFvqlZAsXPaPxnvaGctKJFU ILipno76Ovxw
8O3r8U6aA2hDnFVDepCG9Yc7pHoxrC629o8LJm/omLRuV3RnnMgdX9/7eV5y HkL41SYQS88n
HnjQsczB/HFEgxhcD1hrFtFcS9f/zSuUaCqka6la+eaCzE6AAWH8hwJMs5bF QCZNCHHSru/d
BHhYV04oLgXRQi1BRCAF5mgUoKiEluK0i4gvvY/Mj8ehTDjLSwA4Ma/ySosi FoQbxHpLHPIu
Jd+PWeGMunJIHlfwB8p4ScUGqhRzFSz2XczBwkkZlX+XJ9l7ckqb8Io1Ea1o 1cINEFvX922F
vJ7oXPlYX1Hl4z3/ib1ewUHI0pEGPwUp2JgKixAcWrkSfqHCTZGV5k5VFgef hfdsHAq/5eBi
yEMRsS6FQ5ABNaSRDWkYhigSBUGCk99M4F94gkQKz5j1EAFmiCYshhRzEgYT Jk7IOVRWt8sv
Dvr4TVZn86UtHD6EiIAGNz64i1+KFtguXMNfiRKJ9Zuu0+cdzy3yfBzRD5ee CzRvxzX51Zbz
Km/99IzzqI8XUdwQ7/eIMea7olEkCnJPKOvVp5mbHGMqC5gu3vahbm+x8VYN FVXx0XqIJBqU
HdSr9cYLW7XKCElMpY2RDWqQwxNp2ZiFYpCH5UMxaFBDUs9vqx5rKeoTWxKW g5eiO/5b69K4
kr+1To189Vv28v6b8D3eHFPmf3ERNNFbYjH4skjxi7UoWIXoyTV0hBV6l68r r9QXUqxCG19E
1aP5FOJs2NGPUJPhu0cjHQB2+ukMFgHXocsDXEzFVGgugXzE3+MnC9dVYvPL rrgSYCKEpz1R
ff9lp+E04LNj/1c+wJGfHehzzN0AsLLbwcFNU3fTgNxpOibSsNMxIW/AeANy 5MzAmGNCjjOb
RjcdE3IHaTMy5pi7Ab8BedMstaZj7jYtKNLtmLodE+UoVAPlyLVxSZqOoRtF bkCOYw18I1vm
bpNYUKQm0lAuxm6jUFGXmqbupmnFkHSTtoDQmyYTdMzdTSNyWDLTaFQXU3fT KBbHhBzHmrtN
yB1UpqaRMZMJNo2qiISbhAozm4TabDpGVTR2o9RMJth0HLOFGoWKuM2jzRZq EgvObOIbNdVo
oSbKcUEcE3IYbULecsxesWXobiHjRgttNFqm7pbRn8Pwlqm7ZdK1ltErQnfD bP6A3tTdcsy7
oGk0CMUktZbR5aLMTCvWctZtcwbSuJUYkRtJa7bWqUPLvN7mbpjegLxljFuQ dGO3SWo41jAa
x5q7122SLVN3y+QdsNO8STqtpnEPNQkVtMEsc+Mu6LSaZqGaRiNqx7wTrSFt jcNumUkz7iWO
yfzRfI025phCaNyeUZt+FSWJrIwM2TfexhNBUgoJEIsicRM6EXcA3VM/eZgx kaVZ5KtOqVfK
JjiLb7o+i5JyCTI0/pSGi49pROznuRexCaGkd4vHnQmLENOcVUnJyobLrDNQ 9XMWTNKJv4LU
Lnkoq7xQDdFJ4l1IEKnSYFIlb2YzFsnmP5S6Rzql/IBA3WClA2YgyzXtjL2e egIFx8SERox0
7SMSkl51kcW4qrOYsqTzprPGqx/4QM89jTx65WskQA8N/tv3Yo+Xc/jtJfjD /RuWeKrVak4s
cRKVgQC5UrbPAvnT6vBvRBf/zQ9J8D9TFslHb9KPliUn1QWxYZbd7vAE+a1T P3i3UPiHLF3c
9LlvkuV1GJGg3XFIEpKMtmVdFTl8peNdl+P5FTIl70K3HetV07Edu85lFoTE pVFc5QIR+rtA
F1b+g3wbiEngJ99oRJBaY5kOUScoFEgqFOxVYmm9K+AlFU0z37ksnkKc+0ac rQWc+mlL7jI/
G8hAGEInb8tPpAX6dN2i6bqrpzPJt1C2y3JdK9NCeeatVvyUioMHXNxnKqOP 2I0Hakon4vk5
pehkpaZLRJVK1oSFLcS8pPG5ZROrs6TR2RydgDsN/jhVmFK4rEM9LpRKJhTn HY4bvR6cjAn3
FUdFhilopLFbRnqtvaaziVarcX8G37TAX8OyKk7BCF00ueXQlErozpIwkLJX pPS+xBm69a6T
lQy5y1L4XK7lxOSbDimR0gZYKgetbWRnmH3B6gGN2NGRZ9gTYGOk0aRQTJJa vi9wQfFB3Q0E
1Xj3G7NY6NZS6wXKyohmz7F2hXFplqXsXzIhWEBoyUOQnjsrT4DfX4NbIUo3 F3FIOYgB7xRO
p/5CohTlahxQKuV8QuYSEJEFy8NmRNt7xMBKJ2L8rtGElUtOyb7XDIcXvNEx WJZxWL1oWMXR
Bgq+ZQQmMDxV6X+5+K+OLdLKfvDRDh7wlGL4SR2qqIMcPFljgaBangtIl7wk VY4sFQzGRJJ/
MQvKjXRApJp+oSfBs5G8yi0eBZ54vo9HoOVfBKHl4GOlI8iz4LqCFP5q5w6D Vun8StRE4gbU
iA7meEjnKMad2cXCNMVMBR/57aAco5HEbOIVs8mfQoVSJQqe7vBo4bTxsx92 /OxjRIFdGyMb
1JjqSdXmd3D/3zt1xMXQl2DzY8f8oWPBEaFaayLwK6FLI4gFOG4a/OmgEuS/ rf2DF4cv65D7
HfdPvn09+O7707Pzi8s/DUfjN3/+4S9//XGvSnb/UKt8LX3AaNwdD3qEcgcR tzu/lCBJrgOn
dfyLv0srEmoC83GAzUCdHPAarAjmbIo1A96IVmdTAuqK5k0IkHg3E5azuQTW gkp26puu1mag
Tg54Ha06Y+tpdTSstVp/DbnOpjRoEttMXpst2KagOfXagAAFDKAQgH6/jggN fP2iCZFtQO+m
WDVlWC8wHbRWm5kXLZPaJjJzNqVhQ9Cciq0hQHmutVaW+ZgN2NKA12Ld3Cdq wBvRmoHWaj+u
oWFTK9OAN5SXAsWErDCLXJLFRsglJfVHBs0GbLCVpKC/5u/wwb3bnoo7eBwb b6TUcycbIxi+
44u7imV2JW/UIXNRxdWqK3oxhFivmnpqpUb57DqR8UqzYS3UZlOo0m6pwi8q 8GtFXUdCWyvL
OKSojjNtdyg+q4Ccy9glX+UJXvH6UphE+HCkrOGwGJ/I8m6CMKKBfHtRLkVP xSZ/VVRM83a6
WPASIsWkebrnFJWqVVyvqk4Ir2e2WAmQyAWyr1uYLL9Tt0EXpJVaAP8ILxnJ MsHT9NF2lFnC
4kQ8oxbRKUvSIjd0zWD1vOnMZ3ijNxUoBFYtppcNaVB/jUF9kgb1/3/74WIi AIKdsHjm0090
yl8Tpg4lFjPQNGNgfPXlGcVGicJuvfqyLh/11lJVXHogK8JbrElZo65edfjz CtljEjV8LP9r
AoTig3fxeprwWVVMwTclLVP8fHrEER/55W3uxJTCE6qoSL2iEXgcRaSdGY/J bDRr0Y0y+A3v
8RSSzTlKeVOmHTt23LDlyU1gU9d26QT/sYDKrwbfFQhuC+dvpuoFdQLB4NOE 2uTYvYW/oyTy
ghubnNEY/aVN7vDhD/E2O0ERf8lZFLY7b0P5YSFjIf7jf/GPuGKiiwkQ8Z8C fKejnIBTxjcN
dt7y3R53Y9zJ5f98v8uCNqeuhaZqP5RQMmDMIfeAOwdfePG2LpDWFVI1iRYV 1/VoQ0UGdT15
cJaQNwRyRZfC78jJdIpz3Oj7ueQakXP0d+0O31yp78OCTKVBVUp17VOynYal jHJGJxNYOPLB
A8Mt1UvKpcD6unM/5M+xTrwbTzzBqB/ywVR3lX733Gm+773u974v31lk9Qdf 63RLcdM7Rmz4
rDQfq+abRfpDufgsrdA/vEifquXAoh3WXAh0whVg9OZoNB6Wv7cP7QOh4yjh dkdGAXd2Q7VP
hYKmXVIt7bJWq72zeZV298CqOGrcLiF/VIMV0fzmfqQQpORNvYSTnycyPdHg so4SxgnLSqei
cpq+5CmYCxvRiEF4UW5eLqpKeng32JUeZcTcIFM2uTbbAv3uC2DrhbWicFkw sLFiYFaO5NIB
8E8AVRbAQFLl7d6rdxWBUEEqyYjvtFMrZi4DveV6n8rxtHt8QY77w37v9cU2 kkRVyUtygVfp
T4q5/WIWTQymasJnEa3quhhW7iQ9Cfr82e7eHjl5c94bDy7OySNsJbtSH87D 6VXE2kQ3dc3S
j0M3bi+9JhUGpy+IDQMYjJsQxNq3qQfIJpBvji3CIU5KI3wIq01e1uoHtZcv llxL103m/C0l
CPQPCaWhJ7Ax0zZxnHar3m4eFPsnAfMPBSSH98LZQ+Td3CZAXfXb6rDKxfyo OzafpxvdzDEo
DkGU3GVn5Mv3QbRFzLDLW3zuaJDfx6dHxg+pJunLrvI8LQYQIYRv98TOoLZ8 2DjrZNMPHn7i
CzCEq6fq1qe48ZlIMhRFjgFpi53K/eJReDnYbVh7Ts49AAVxYwVoCpgZtZBB u1OOG7tNqxKL
s0tokC9jm4Tkw63np/voq/R2GYDxKxJKudUUnb+X7rvpA/3xGIiRMsfbcVZU 70X0e1rOju8m
8s0WPHYHuchXoeFlu+MFCQetNbKjASwglCr5c02E2X2BcQWvfqzqxZErCHtz 2UuPFDgphsjU
XgxNPzck/XeOHYsXz8k1ixgf2rVADpTXm8i74oQ94Fi8ec6B3W2LoJGr0BcH jRAzvpm5uj9J
ERfadAaSqqm8M+XLg8YhenaIGVONT8PGUxTHXa7jMcM9rFyhplpbhX1y/18X 0T1CEIX0oYis
rYKpBfpWB1NroqClyKbIeXTBqant6Oks+onNWRZgpVO72yaDc57EFAXaTQzx 86zPYB6rFBxV
zhfmiClZPiZXI/L7T3Of350KBCShwRIAxsX3K4UrTWLzGVarP9LPQ8hlBn4n gX2mBLnF3yyw
x9rzrUjpUdXAMv8lgf2Ldv3l2sAegX4/gb34tEWVk5xzL8k3F26tcUzKwBkJ CSrLUjKgtOO3
yweU8y3cvZcSggBSAt3Z/A4TAh4H5e/+W5UaBJskBfLWvpUpgcNTgsYTpATZ UxxITW8hK+By
kIcuXMH2lYoV7Kyj+WxfP85T8Ti5s9Xk/KRQnCrJW35gR4PwUL0XQJV7aeQl D+Dz0zqu+J+l
hd8w+5t14893T1w2/t9X2S3Z+9ai8hdGBuopIyBQbEpcZUhB7bNJKvnmpmxO D5oX+veLhzV4
88tKOizX2xK9MLhOLHVGm2r5QomWP1kj+qzdg0oDmF66BzV98gH1MRew3q0q omZZpmN1SqF+
6C/VPN3UB6IYCqjNNdSicU7huKyEisfO3+wXISnVs9tl8/d95s5441yqnTrs xXOrYfhBnFud
F51b4WakHVpJByBeAcldJj5pZROfpBUflKsYjV3ZM22bH0UUKut/bBTEPt4x hHjDk3pPnPml
87m3yGWvm3dzzenL5tMT3Wa1UauVxeXufvVAewsvPy+8TcSxMRCFcFhFqVfr LaLr7FeLNxUv
vnvdae7X60tvuCNLr9lf94q87G6O/ISr3guHKrUneTvkWlaRHLy00/jdloel 1mb4KhJfcwFf
7lTnM3Hu11chPVxGmjdvM3qBz+HYM4F8vgh0fJlAvkwERThBIEYR6E+AiFfh 5t6Enj/Z/idQ
SwMEFAACAAgAvVwlNahUxdIFAgAAkwQAABEAAABTb3VyY2UvYmFycmFzLnBy Z62UzW6jMBSF
95HyDlfMIm0VgU1CEtgR4rRIgSCHdn42FUM8iUfURIa0mnntvsAYCDOhmp8s xitz7PPd4wvY
uOn34AYimX9jaZk74OVb9jmRtbrk6Z5JJSpBJoV+kLtaX7AilfyQ8lfh1IJ7 LHPZTJcs3ScO
INNAtmEiNKlUo9/r995xkWbHLQPtQ8IzJvV0r3X1Y8mzgxTtwvIo0pLnAuZ1 +atrhQKI2ycn
ZC9XoETJyqMUIHhWubyVu9m0u2BJ1wHEfhBRPyDVsiIEJL5bL6CyX58LUbLj Iqk0Ei5qTGXo
9873QwffrCvCqQD4oR+DRr6yp0OWg/e65bu8AHW2poMaRJQ8+OT9yaZG5N6S dq6G4/xK0Sgq
S7OnU0ip/R5tDq7H+lnM1g//iIqHgMFbLwg2Z6DZyEImxlMTj9Q7GyOExvZs PEX2DE0QRtWY
WKYGgTKA5mmw8T8pRodo6tb/YMIDobHvuas3gUdDsGr46NGGATZHY2syndkI mwMlr9ZUHZg+
3lL3Y8dmXWzrFO72Cg0xEDfEo7eENM9yWRPuKFkAzN0wJBSW6zCGQcmfWDHo kswhRpeh2jS/
Z3aos0uhz0yWPE2yPzGbj84wYM531U3QKj/jW6oRLBF/LTRf3RN44dtyD0jH UPDvDKa6pf4B
IZiEL7koYZBInmR1TUriexpC6J/6/gNQSwMEFAACAAgAbmIlNRdcRi0UAwAA VQcAABMAAABT
b3VyY2UvaW1wcmltaXIucHJnhVRtj5pAEP5u4n+Y0DTRq0X03m0uKVW8I1Ek wLV3H1dcz21w
lyzYXn9uf0O/9VNnQXTxNN3ECMPMM88zMzvds2YDzsCX4heNczGAoVjQOZGF dcziFZVoZOtU
sjWTZipfii8jmsWSpTH7wweFwd7kQpaPYxqvyACsfte67fYt60pZu81Gs/GO 8TjZLCgYT4Ql
VJrxytCtjzlLUslLc7Mx3vA4Z4LDmiUsy8lCtNqIBRBNqteBR3+2AK2S5hvJ gbNERTYbw4kd
hujohpE9msE4mE0hcqd+4E6d0gNxpk70MBuBwmjrhiGZ05hKUrdOGKckq9tC mhJJULoyO96o
SKvQNWhoQ53NLv+WD7ieG4HhlkWmfCEw11wKwJoMyXdiAPiB89V1vhVReAYD 7vCFIqRe7vT3
j3BVefn2vVM9F0EHuipzTRge1LELrSiiTZEOyjKbkamJ3MPCEaUaiNUzLauD k4F/ENrPYNR0
InfnO5Uxi5kANTgoHMYzL0KOwpaMJL3+vA7YPwT0Hd+NZvAM+OBAODHg8BwA HuJd1vFy+poL
+EHQeSHegv0PrxTcu0TYLb/fL4wTGAAY8AEiSXi2FHLdUi30ifrWAeNWHaN9 HL6W4MvsCaxz
81yR7qkkSNa6KJPemtcWlsFT0T7lB5HqYGQh92JHz+UvkmYiM45ou5lD4N4/ RCdh9iqHgsc0
zcVxmFMAvZsdwD3J8h2LkzyKiXSix8ADz51oE1lN9HYctXlEsImISQIcOeZk WxQsfhGi7tL1
7nqOhdy6wR30IBJwZW0/aQKq2A647rhV+r/vYwQqutB0tQtlWsdLV2z3Zwew 353tz8TWo/Mn
7YrWZ8DS2nCUh9YIB8sINIOEQFIIxKsWb5sD/O8at3sxiGEuK0LQfptRUx06 vh3Y0SwoLJ7z
mp/swn45Ag9TEtOjmxBRul0IGazInOHq23DISJIXWyEtbgQ+ZekGVaBlwzUl WZEAtwUv6bEl
hJuUysGxzJjEzinHsTJhkpA1WRAgqjBRuXipud+ubxflwYQoEy5qttSWYkiT ZTk7/wBQSwME
FAACAAgAKGAlNRsdbDeJAQAAgAIAAAsAAABDb2RlYmFyLnhwak1Ry07kMBC8 R8o/8AXRDgt7
82E3mdEGTcgoEwES4uA4zeDFL7VtxPC3/Mm24xnEyV3V5XK7+nE39Dfrenwq i/HogME7lEUD
XqB0QVrDajvDxLEs+hhcDGdcLcLaaicVIHv/y3GykWQdl6azc1TANhb1qnJ4 IDaqIJ2C1vjA
jQDPqrEqi4ddx418Bh8ybgW9WBY7jlxDAPQE+nXHqg017winiVbVj7IYQAH3 wKj8E6WaU5Gm
4ebI6k9NBhc3gPCRWHcc5OElkNeIfIaO42syJrkGE1L52O/Gtr/dUwq/Y7Ca Byk60G8cGxCK
zJYolikamOKhNc82T7yPziF4v5UGbqOeAFMP9bcbZ8n+xWIQMQRpDrlzz9EY Qlt4A8VWFJNF
6Jfc01QddxtKN2tr4qwCivZEJC29+kr69IOmHWiN/dCu0y/2tAsBjUSWK4rW CBXnhTqVKUT/
pTvXFPj0LxF0kO2m3S6Gq6/FL/u8/L7cnwxByMlmdMVGqR1KDRlfM7qF3Gf0 i+WmPBn9B1BL
AQIUABQAAgAIAGmZIjUEzZRxygAAAB8BAAASAAAAAAAAAAAAIAC0gQAAAABT b3VyY2UvQ29k
ZWJhci5wcmdQSwECFAAUAAIACAChYSU1w+2BZw0BAAC2AwAAEAAAAAAAAAAA ACAAtIH6AAAA
U291cmNlL0Zvcm0xLnByZ1BLAQIUABQAAgAIAKFhJTWN5yODHAEAAAIDAAAQ AAAAAAAAAAAA
IAC0gTUCAABTb3VyY2UvRm9ybTEueGZtUEsBAhQAFAACAAgAK18lNfn5lRZ/ CwAAxSgAABEA
AAAAAAAAAAAgALSBfwMAAFNvdXJjZS9yZWNpYm8ucHJnUEsBAhQAFAACAAgA 2mMlNSBp5La1
GAAAVm4AABMAAAAAAAAAAAAgALSBLQ8AAFNvdXJjZS9UaW1wcmltZS5wcmdQ SwECFAAUAAIA
CAC9XCU1qFTF0gUCAACTBAAAEQAAAAAAAAAAACAAtIETKAAAU291cmNlL2Jh cnJhcy5wcmdQ
SwECFAAUAAIACABuYiU1F1xGLRQDAABVBwAAEwAAAAAAAAAAACAAtIFHKgAA U291cmNlL2lt
cHJpbWlyLnByZ1BLAQIUABQAAgAIAChgJTUbHWw3iQEAAIACAAALAAAAAAAA AAAAIAC0gYwt
AABDb2RlYmFyLnhwalBLBQYAAAAACAAIAPUBAAA+LwAAAAA=
--------------020504050200010005010501--
Jose David Angulo Urzola
Auditoria y Sistemas Ltda.
Cartagena-Colombia
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Código de Barras

Mensaje por Xevi »

José Luis,
Adjunto la Clase TBarCode que estoy utilizando en mi aplicación.
Un Saludo,
Xevi.
"José Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje de
noticias news:47434d1f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hola,
>
> ¿Alguien conoce alguna solución para imprimir código de barras (code39)
> sin usar fuentes?
>
> --
> Saludos,
> José Luis Capel
> www.capelblog.com vuelve a estar online!!
>
--

Attached files TBarCode.zip (18.6 KB)Â
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

Código de Barras

Mensaje por jose.luis »

Xevi,
José David,
Gracia!!! Voy a mirarlo.
Saludos,
José Luis Capel
"José Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
news:47434d1f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hola,
>
> ¿Alguien conoce alguna solución para imprimir código de barras (code39)
> sin usar fuentes?
>
> --
> Saludos,
> José Luis Capel
> www.capelblog.com vuelve a estar online!!
>
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

Código de Barras

Mensaje por PILO »

Me pide el utilprn.ch,
el puedes incluir, gracias
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Código de Barras

Mensaje por Xevi »

PILO,
El proyecto no utiliza ningun fichero llamado utilprn.ch.
Un Saludo,
Xevi.
"PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
news:47440332$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Me pide el utilprn.ch,
> el puedes incluir, gracias
>
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

Código de Barras

Mensaje por PILO »

Es el de jose David, perdona
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:47440728$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> PILO,
>
> El proyecto no utiliza ningun fichero llamado utilprn.ch.
>
> Un Saludo,
> Xevi.
>
>
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
> news:47440332$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>
>> Me pide el utilprn.ch,
>> el puedes incluir, gracias
>>
>
Avatar de Usuario
gerencia
Mensajes: 282
Registrado: Sab Jun 20, 2009 6:01 pm

Código de Barras

Mensaje por gerencia »

/*
* Proyecto: imprimir
* Fichero: utilprn.ch
* Descripción:
* Autor:
* Fecha: 29/08/2006
*/
#DEFINE PAD_LEFT 0
#DEFINE PAD_RIGHT 1
#DEFINE PAD_CENTER 2
// Para la Clase TImprime
#xcommand ISEPARATOR [ <nSpace> ];
=>;
::Separator( <nSpace> )
/*
#xcommand IMPRIME ;
MEMO <cText> ;
[ COL <nCol> ] ;
[ LINES <nLine> ];
[ FONT <oFont> ] ;
[ COLOR <nClrText> ];
[ SEPARATOR <nSeparator> ] ;
[ <lJump :JUMP> ];
=>;
::MEMO( <nCol>,<cText>,<nLine>,<nSeparator>,<oFont>,<nClrText >,<.lJump.> )
*/
#xcommand IMPRIME INIT[ <cSpool> ];
[ <lPreview: PREVIEW> ];
[ <nCopies> COPIES ];
[ <lLandScape: LANDSCAPE> ];
=>;
::Init( <cSpool>,<.lPreview.>,<nCopies>,<.lLandScape.> )
#xcommand IMPRIME NEW[ <cSpool> ];
=>;
::Init( <cSpool> )
#xcommand IMPRIME END [ <lCont> ];
=>;
::EndInit( <lCont> )
#xcommand IMPRIME [ <nLinea>,<nFila> ] DATETIME ;
=>;
::Date( <nLinea>,<nFila> )
#xcommand IMPRIME EJECT ;
=>;
::Eject()
#xcommand PAGE => Printer:StartPage()
#xcommand ENDPAGE => Printer:EndPage()
#xcommand IMPRIME ;
[<nLin>,<nCol> SAY <cText>];
[ FONT <oFont> ] ;
[ COLOR <nClrText> ];
[ MODE <nBkMode> ];
[ <cPad:LEFT,CENTER,CENTERED,RIGHT> ] ;
=>;
::Text( <cText>,<nLin>,<nCol>,<oFont>,<nClrText>,<nBkMode>,[UPPER( <(cPad)>)] )
#xcommand LINEA <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
[ PEN <oPen> ] ;
=>;
::Linea( <nLin1>,<nCol1>,<nLin2>,<nCol2>,<oPen> )
#xcommand BOX <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
[ BRUSH <oBrush>];
[ PEN <oPen> ] ;
[ <lRound: ROUND > [ <nZ>,<nZ2> ] ];
=>;
::Box( <nLin1>,<nCol1>,<nLin2>,<nCol2>,<oBrush>,<oPen>,<.lRound. >,<nZ>,<nZ2> )
#xcommand IMPRIME LINEA <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
[ PEN <oPen> ] ;
=>;
::Linea( <nLin1>,<nCol1>,<nLin2>,<nCol2>,<oPen> )
#xcommand IMPRIME BOX <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
[ BRUSH <oBrush>];
[ PEN <oPen> ] ;
[ <lRound: ROUND > [ <nZ>,<nZ2> ] ];
=>;
::Box( <nLin1>,<nCol1>,<nLin2>,<nCol2>,<oBrush>,<oPen>,<.lRound. >,<nZ>,<nZ2> )
#xcommand IMPRIME IMAGE <oImage> IN <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
=>;
::SayImage( <oImage>,<nLin1>,<nCol1>,<nLin2>,<nCol2> )
#xcommand IMPRIME <nLin>, <nCol> CODE128 <cCode> ;
[ MODE <cMode>] ;
[ <lVert:VERTICAL> ];
[ COLOR <nColor> ] ;
[ WIDTH <nWidth> ] ;
[ SIZE <nSize> ] ;
=> ;
::cbCode128( <nLin>, <nCol> , <cCode>, <cMode> ;
,<nColor>, .not. <.lVert.>, <nWidth>, <nSize> )
#xcommand IMPRIME <nLin>, <nCol> CODE3_9 <cCode> ;
[ <lCheck:CHECK> ] ;
[ <lVert:VERTICAL> ];
[ COLOR <nColor> ] ;
[ WIDTH <nWidth> ] ;
[ SIZE <nSize> ] ;
=> ;
::cbCode3_9( <nLin>, <nCol> , <cCode>, <lCheck> ;
,<nColor>, .not. <.lVert.>, <nWidth>, <nSize> )
#xcommand IMPRIME <nLin>, <nCol> EAN13 <cCode> ;
[ <lVert:VERTICAL> ];
[ COLOR <nColor> ] ;
[ WIDTH <nWidth> ] ;
[ SIZE <nSize> ] ;
[ <lBanner:BANNER> ] ;
[ FONT <cFont> ] ;
=> ;
::cbEan13( <nLin>, <nCol> , <cCode> ;
,<nColor>, .not. <.lVert.>, <nWidth>, <nSize>,;
<.lBanner.>, <cFont> )
--
Jose David Angulo Urzola
Auditoria y Sistemas Ltda.
Cartagena-Colombia
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

Código de Barras

Mensaje por PILO »

José David Angulogracias jose
xevi en el tuyo no hace falta
"José David Angulo" <gerencia@microexpressltda.com> escribió en el mensaje news:47448b75$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Pilo,
El include.
PILO escribió:
Me pide el utilprn.ch,
el puedes incluir, gracias

--
José David Angulo.
Auditorí­a y Sistemas Ltda.
Tel.(57) 5- 6643022 - 6644555
Cartagena - Colombia
jose.angulo@auditoriaysistemas.com
------------------------------------------------------------ ------------------
/*
* Proyecto: imprimir
* Fichero: utilprn.ch
* Descripción:
* Autor:
* Fecha: 29/08/2006
*/
#DEFINE PAD_LEFT 0
#DEFINE PAD_RIGHT 1
#DEFINE PAD_CENTER 2
// Para la Clase TImprime
#xcommand ISEPARATOR [ <nSpace> ];
=>;
::Separator( <nSpace> )
/*
#xcommand IMPRIME ;
MEMO <cText> ;
[ COL <nCol> ] ;
[ LINES <nLine> ];
[ FONT <oFont> ] ;
[ COLOR <nClrText> ];
[ SEPARATOR <nSeparator> ] ;
[ <lJump :JUMP> ];
=>;
::MEMO( <nCol>,<cText>,<nLine>,<nSeparator>,<oFont>,<nClrText >,<.lJump.> )
*/
#xcommand IMPRIME INIT[ <cSpool> ];
[ <lPreview: PREVIEW> ];
[ <nCopies> COPIES ];
[ <lLandScape: LANDSCAPE> ];
=>;
::Init( <cSpool>,<.lPreview.>,<nCopies>,<.lLandScape.> )
#xcommand IMPRIME NEW[ <cSpool> ];
=>;
::Init( <cSpool> )
#xcommand IMPRIME END [ <lCont> ];
=>;
::EndInit( <lCont> )
#xcommand IMPRIME [ <nLinea>,<nFila> ] DATETIME ;
=>;
::Date( <nLinea>,<nFila> )
#xcommand IMPRIME EJECT ;
=>;
::Eject()
#xcommand PAGE => Printer:StartPage()
#xcommand ENDPAGE => Printer:EndPage()
#xcommand IMPRIME ;
[<nLin>,<nCol> SAY <cText>];
[ FONT <oFont> ] ;
[ COLOR <nClrText> ];
[ MODE <nBkMode> ];
[ <cPad:LEFT,CENTER,CENTERED,RIGHT> ] ;
=>;
::Text( <cText>,<nLin>,<nCol>,<oFont>,<nClrText>,<nBkMode>,[UPPER( <(cPad)>)] )
#xcommand LINEA <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
[ PEN <oPen> ] ;
=>;
::Linea( <nLin1>,<nCol1>,<nLin2>,<nCol2>,<oPen> )
#xcommand BOX <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
[ BRUSH <oBrush>];
[ PEN <oPen> ] ;
[ <lRound: ROUND > [ <nZ>,<nZ2> ] ];
=>;
::Box( <nLin1>,<nCol1>,<nLin2>,<nCol2>,<oBrush>,<oPen>,<.lRound. >,<nZ>,<nZ2> )
#xcommand IMPRIME LINEA <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
[ PEN <oPen> ] ;
=>;
::Linea( <nLin1>,<nCol1>,<nLin2>,<nCol2>,<oPen> )
#xcommand IMPRIME BOX <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
[ BRUSH <oBrush>];
[ PEN <oPen> ] ;
[ <lRound: ROUND > [ <nZ>,<nZ2> ] ];
=>;
::Box( <nLin1>,<nCol1>,<nLin2>,<nCol2>,<oBrush>,<oPen>,<.lRound. >,<nZ>,<nZ2> )
#xcommand IMPRIME IMAGE <oImage> IN <nLin1>,<nCol1> TO <nLin2>,<nCol2> ;
=>;
::SayImage( <oImage>,<nLin1>,<nCol1>,<nLin2>,<nCol2> )
#xcommand IMPRIME <nLin>, <nCol> CODE128 <cCode> ;
[ MODE <cMode>] ;
[ <lVert:VERTICAL> ];
[ COLOR <nColor> ] ;
[ WIDTH <nWidth> ] ;
[ SIZE <nSize> ] ;
=> ;
::cbCode128( <nLin>, <nCol> , <cCode>, <cMode> ;
,<nColor>, .not. <.lVert.>, <nWidth>, <nSize> )
#xcommand IMPRIME <nLin>, <nCol> CODE3_9 <cCode> ;
[ <lCheck:CHECK> ] ;
[ <lVert:VERTICAL> ];
[ COLOR <nColor> ] ;
[ WIDTH <nWidth> ] ;
[ SIZE <nSize> ] ;
=> ;
::cbCode3_9( <nLin>, <nCol> , <cCode>, <lCheck> ;
,<nColor>, .not. <.lVert.>, <nWidth>, <nSize> )
#xcommand IMPRIME <nLin>, <nCol> EAN13 <cCode> ;
[ <lVert:VERTICAL> ];
[ COLOR <nColor> ] ;
[ WIDTH <nWidth> ] ;
[ SIZE <nSize> ] ;
[ <lBanner:BANNER> ] ;
[ FONT <cFont> ] ;
=> ;
::cbEan13( <nLin>, <nCol> , <cCode> ;
,<nColor>, .not. <.lVert.>, <nWidth>, <nSize>,;
<.lBanner.>, <cFont> )
--
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

Código de Barras

Mensaje por PILO »

Xevi, ahi un nuevo codigo que es el EAN14
Lo puedes implenentar en la libreria,
Gracias de antemano.
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Código de Barras

Mensaje por Xevi »

PILO,
No se trata de una Lib.
He adjuntado el código del proyecto, que yo no he hecho nada mas que
modificar poco código para poderlo utilizar en mis aplicaciones en Xailer.
No soy lo bastante avanzado en clases para poder crear un tipo más. De todas
formas, si alguien puede añadirlo, pues bienvenido sea.
Un Saludo,
Xevi.
"PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
news:47497746$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Xevi, ahi un nuevo codigo que es el EAN14
> Lo puedes implenentar en la libreria,
> Gracias de antemano.
>
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

Código de Barras

Mensaje por PILO »

Gracias Xevi, de todas formas
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=4749c1ab@ozsrv2.ozlan.local...]4749c1ab@ozsrv2.ozlan.local...[/email]
> PILO,
>
> No se trata de una Lib.
> He adjuntado el código del proyecto, que yo no he hecho nada mas que
> modificar poco código para poderlo utilizar en mis aplicaciones en Xailer.
> No soy lo bastante avanzado en clases para poder crear un tipo más. De
> todas formas, si alguien puede añadirlo, pues bienvenido sea.
>
> Un Saludo,
> Xevi.
>
>
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
> news:47497746$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Xevi, ahi un nuevo codigo que es el EAN14
>> Lo puedes implenentar en la libreria,
>> Gracias de antemano.
>>
>
Responder