This is a multi-part message in MIME format.
------=_NextPart_000_0035_01C5DFC4.05C6DCF0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0036_01C5DFC4.05C6DCF0"
------=_NextPart_001_0036_01C5DFC4.05C6DCF0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Pilo,
Si lo que necesitas es imprimir DIRECTAMENTE a puerto LPT como se =
hac=EDa en Clipper...
pos eso, igualito igualito como hacias con Clipper. De hecho te adjunto =
un trozo de prg que utilizaba en Clipper y lo he pegado a un Prg de mi =
proyecto de Xailer y funciona sin tocar una l=EDnea.
Car=E1cteres ESC para...
Cambios de letra, n=FAmeros de l=EDneas de papel,...
Escritura utilizando @ x,y SAY ...
En fin, si lo estabas utilizando con Clipper, igualito te funcionar=E1 =
en xHarbour.
Si por el contrario necesitas como imprimir con la clase TPrinter,... =
haz caso de lo que te ha comentado Ignacio.
A mi me cost=F3 un poco familiarizarme un poco, pero ya me defiendo un =
poco con las clases TPrinter y TCanvas.
Un Saludo,
Xevi.
"PILO" <
srmpilo@hotmail.com> escribi=F3 en el mensaje =
news:4368bba2$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
ALGUIEN ME PUEDE MANDAR LOS CODIGOS DE IMPRESION
CON LA TPRINTER,
ESCRIBIR UNA LINEA, UN CUADRO, UN DIBUJO, ETC
COMO EN CLIPER,=20
0,1 SAY "ANTONIO"
CON CABEZERAS QUE SE REPITAN
MUCHAS GRACIAS DE ANTEMANO.
------=_NextPart_001_0036_01C5DFC4.05C6DCF0
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.2769" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Pilo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si lo que necesitas es imprimir =
DIRECTAMENTE a=20
puerto LPT como se hac=EDa en Clipper...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>pos eso, igualito igualito como hacias =
con Clipper.=20
De hecho te adjunto un trozo de prg que utilizaba en Clipper y lo he =
pegado a un=20
Prg de mi proyecto de Xailer y funciona sin tocar una =
l=EDnea.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Car=E1cteres ESC para...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Cambios de letra, n=FAmeros de l=EDneas =
de=20
papel,...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Escritura utilizando @ x,y SAY =
....</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En fin, si lo estabas utilizando con =
Clipper,=20
igualito te funcionar=E1 en xHarbour.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si por el contrario necesitas como =
imprimir con la=20
clase TPrinter,... haz caso de lo que te ha comentado =
Ignacio.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>A mi me cost=F3 un poco familiarizarme =
un poco, pero=20
ya me defiendo un poco con lasÂclases TPrinter y =
TCanvas.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"PILO" <<A=20
href=3D"mailto:
srmpilo@hotmail.com">
srmpilo@hotmail.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:4368bba2$
1@ozsrvnegro.ozlan.local">news:4368bba2$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>ALGUIEN ME PUEDE MANDAR LOS CODIGOS =
DE=20
IMPRESION</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>CON LA TPRINTER,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ESCRIBIR UNA LINEA, UN CUADRO, UN =
DIBUJO,=20
ETC</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>COMO EN CLIPER, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2>0,1 SAY "ANTONIO"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>CON CABEZERAS QUE SE =
REPITAN</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>MUCHAS GRACIAS DE=20
ANTEMANO.</FONT></DIV></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0036_01C5DFC4.05C6DCF0--
------=_NextPart_000_0035_01C5DFC4.05C6DCF0
Content-Type: application/octet-stream;
name="Imprimir.prg"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="Imprimir.prg"
METHOD xImprimirLPT() CLASS TFrmAltaORsCITROEN
local nRow, cPicture, aG, n, cLletra, aCamps
aCamps :=3D { ::oEditNom:cText, ::oLblAdreca:cText, ::oLblNIF:cText, =
::oLblTelefon:cText, ::oLblCodiP:cText,;
::oLblCiutat:cText, ::oLblNum1OR:cText, =
::oLblVehicle:cText + ::oEditVehicle:cText, ::oEditMatricula:cText,;
::oEditEntrada:Value, ::oLblRecep:cText, ::oLblOPB:cText =
+ ::oEditOPB:cText, ::oEditKM:Value, If( Day( CtoD( ::oLblVenda:cText ) =
) =3D 0, ::oEditVenda:Value, CtoD( ::oLblVenda:cText ) ),;
::oLblXassis:cText + ::oEditXassis:cText, =
::oLblAgent:cText + ::oEditAgent:cText, ::oLblPR:cText + =
::oEditPR:cText, ::oLblConce:cText + ::oEditConce:cText, =
::oEditEntrega:Value,;
::oEdit1:cText, ::oEdit2:cText, ::oEdit3:cText, =
::oEdit4:cText, ::oEdit5:cText,;
::oEdit6:cText, ::oEdit7:cText, ::oEdit8:cText, =
::oEdit9:cText, ::oEdit10:cText,;
::oEdit11:cText, ::oEdit12:cText, ::oLblGarantia:cText + =
::oEditGarantia:cText }
SET DEVICE TO PRINTER
SET PRINTER TO LPT1
BEGIN SEQUENCE
USE (oXevi:cRuta+"DISENYS1") NEW ALIAS "DISENYS"
SET INDEX TO (oXevi:cRuta+"DISENYS1")
locate for Field->TIPUS=3D"OR " .and. Empty(Field->TITOL)
@ 0,0 say liniesllistat(DISENYS->NROW)+lletranormal()
SET FILTER TO Field->TIPUS=3D"OR " .and. !Empty(Field->TITOL)
DISENYS->(DbGoTop())
cLletra:=3D" "
while DISENYS->(!Eof())
nRow:=3DDISENYS->NROW
aG:=3D{}
while DISENYS->(!Eof()) .and. DISENYS->NROW=3D=3DnRow
if !Empty(Eval(&(DISENYS->CCAMP),aCamps)) .and. =
DISENYS->NROW+DISENYS->NCOL>0
cPicture:=3DAllTrim(DISENYS->CPICTURE)
if DISENYS->LLETRA=3D"G"
=
Aadd(aG,{DISENYS->NCOL,Eval(&(DISENYS->CCAMP),aCamps),cPicture})
else
=
canvilletra(@cLletra,DISENYS->LLETRA,nRow,DISENYS->NCOL)
@ DISENYS->NROW,DISENYS->NCOL say =
Eval(&(DISENYS->CCAMP),aCamps) PICTURE cPicture
endif
endif
DISENYS->(DbSkip())
end
for n:=3D1 to Len(aG)
@ nRow,0 SAY lletranormal()+lletragrossa()
@ nRow,aG[n,1] say aG[n,2] PICTURE aG[n,3]
cLletra:=3D" "
next
end
DISENYS->(DbCloseArea())
EJECT
END SEQUENCE
SET PRINTER TO
SET DEVICE TO SCREEN
RETURN Nil
------=_NextPart_000_0035_01C5DFC4.05C6DCF0--
Attached files Imprimir.prg (60 B)Â