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.

NECESITO COMO SE IMPRIME

Foro de Xailer profesional en español
Responder
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

NECESITO COMO SE IMPRIME

Mensaje por PILO »

ALGUIEN ME PUEDE MANDAR LOS CODIGOS DE IMPRESION
CON LA TPRINTER,
ESCRIBIR UNA LINEA, UN CUADRO, UN DIBUJO, ETC
COMO EN CLIPER,
0,1 SAY "ANTONIO"
CON CABEZERAS QUE SE REPITAN
MUCHAS GRACIAS DE ANTEMANO.
--
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

NECESITO COMO SE IMPRIME

Mensaje por ignacio »

Pilo,
Revise el ejemplo SamplesPrintingPrinterInfo. Igualmente consulte la documentación de la clase TCanvas.
Un saludo
"PILO" <srmpilo@hotmail.com> escribió 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,
0,1 SAY "ANTONIO"
CON CABEZERAS QUE SE REPITAN
MUCHAS GRACIAS DE ANTEMANO.
--
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

NECESITO COMO SE IMPRIME

Mensaje por Xevi »

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)Â
Arriba
Responder

Volver a “Xailer Pro Spanish”