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.

Imprimir Ficha

Foro de Xailer profesional en español
Responder
paco-ssi
Mensajes: 390
Registrado: Lun Feb 07, 2005 4:17 pm

Imprimir Ficha

Mensaje por paco-ssi »

Necesito imprimir una ficha, y no tengo ni idea por donde empezar.
He estado viendo los ejemplos y no me entero.
Porfa, podria ser posible un ejemplito pequeño?
Gracias.
Paco V.
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9253
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Imprimir Ficha

Mensaje por ignacio »

Paco,
SamplesPrintingPrinterInfo
Saludos,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:4263aacf$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Necesito imprimir una ficha, y no tengo ni idea por donde empezar.
>
> He estado viendo los ejemplos y no me entero.
>
> Porfa, podria ser posible un ejemplito pequeño?
>
> Gracias.
>
>
> Paco V.
>
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
paco-ssi
Mensajes: 390
Registrado: Lun Feb 07, 2005 4:17 pm

Imprimir Ficha

Mensaje por paco-ssi »

Ignacio, lo tengo negro. He estado mirando este ejemplo y me queda muyyyyy
grande.
Sigo con ello, pero Uffffffffff.
Alguna otra ayudita porfa.
Paco V.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:4264ae68$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Paco,
>
> SamplesPrintingPrinterInfo
>
> Saludos,
>
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:4263aacf$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > Necesito imprimir una ficha, y no tengo ni idea por donde empezar.
> >
> > He estado viendo los ejemplos y no me entero.
> >
> > Porfa, podria ser posible un ejemplito pequeño?
> >
> > Gracias.
> >
> >
> > Paco V.
> >
> >
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9253
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Imprimir Ficha

Mensaje por ignacio »

Paco,
Es que ni siquiera comentas lo que quieres hacer. Nosotros te ayudamos pero no te vamos a hacer tu código como seguro comprenderás.
Por favor, intenta empezar y cuando te atasques nos lo dices, pero por lo menos intentalo. Es más fácil de lo que piensas.
Por otra parte, yo no veo demasiado complicado este código de PrinterInfo:
METHOD Button5Click( oSender ) CLASS TForm1
LOCAL ofrmPreview, oFont, oPen, oBmp, oJpg
local n := 100
oFont := TFont():New()
oPen := TPen():New( PS_SOLID, 1, CLR_RED )
oBmp := TPicture():Load( "Computer64" )
oJpg := TPicture():Load( "xailer" )
WITH OBJECT oFont
:cName := "Arial"
:nSize := 18
:lBold := .t.
END WITH
Printer:lPreview := .t.
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:oFont := oFont
:oPen := oPen
:DrawPicture( {100, 1500, 2000, 2500}, oJpg )
:TextOut( 0, 0, "This first line should be shown partially in almost any printer")
:TextOut( 100, 100, "The above line should be cutted on almost any printer")
:MoveTo( 0+n, 0+n )
:LineTo( 2100-n, 2970-n )
:LineTo( 0+n, 2970-n )
:LineTo( 0+n, 0+n )
:LineTo( 2100-n, 0+n )
:LineTo( 2100-n, 2970-n )
:lTransparent := .f.
:nClrPane := CLR_YELLOW
:oFont:nSize := 14
:TextRect( {1000, 1000, 1500, 1500}, 1000, 1000, "Xailer printing demo", CLR_BLUE)
:lTransparent := .t.
:nClrPane := CLR_WHITE
:nMapMode := mmSIMULCHAR
:oFont:nSize := 12
:oFont:lBold := .f.
For n := 10 to :TextLines()
:TextOut( 4, n, "Xailer printing demo, line: " + ltrim( str( n ) ), CLR_BLUE)
Next
:nMapMode := mmHIMETRICS
:nClrPane := CLR_BLACK
:Rectangle( {700, 200, 800, 300} )
:nClrPane := CLR_GREEN
:RoundRect( {1100, 200, 1200, 300} )
:DrawPicture( {1100, 200, 1200, 300}, oBmp )
:Rectangle( { 1000, 500, 1700, 800 } )
END WITH
Printer:EndPage()
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:TextOut( 100, 100, "Second page")
END WITH
Printer:EndPage()
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:TextOut( 100, 100, "Third page")
END WITH
Printer:EndPage()
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:TextOut( 100, 100, "Forth page")
END WITH
Printer:EndPage()
Printer:EndDoc()
Printer:Preview()
oFont:Destroy()
oBmp:Destroy()
oJpg:Destroy()
RETURN Nil
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje news:42650698$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio, lo tengo negro. He estado mirando este ejemplo y me queda muyyyyy
> grande.
> Sigo con ello, pero Uffffffffff.
> Alguna otra ayudita porfa.
>
> Paco V.
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:4264ae68$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Paco,
>>
>> SamplesPrintingPrinterInfo
>>
>> Saludos,
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
>> news:4263aacf$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> > Necesito imprimir una ficha, y no tengo ni idea por donde empezar.
>> >
>> > He estado viendo los ejemplos y no me entero.
>> >
>> > Porfa, podria ser posible un ejemplito pequeño?
>> >
>> > Gracias.
>> >
>> >
>> > Paco V.
>> >
>> >
>>
>>
>
>
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
paco-ssi
Mensajes: 390
Registrado: Lun Feb 07, 2005 4:17 pm

Imprimir Ficha

Mensaje por paco-ssi »

Ignacio, sali del bache.
Como dicen los curas: "Una palabra tuya bastara para sanarme"
Muchiiiiiiiisiiiiiiimas Gracias una vez mas.
Xailer, no vale nada sin vosotros.
Paco V.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje news:426525af$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Paco,
Es que ni siquiera comentas lo que quieres hacer. Nosotros te ayudamos pero no te vamos a hacer tu código como seguro comprenderás.
Por favor, intenta empezar y cuando te atasques nos lo dices, pero por lo menos intentalo. Es más fácil de lo que piensas.
Por otra parte, yo no veo demasiado complicado este código de PrinterInfo:
METHOD Button5Click( oSender ) CLASS TForm1
LOCAL ofrmPreview, oFont, oPen, oBmp, oJpg
local n := 100
oFont := TFont():New()
oPen := TPen():New( PS_SOLID, 1, CLR_RED )
oBmp := TPicture():Load( "Computer64" )
oJpg := TPicture():Load( "xailer" )
WITH OBJECT oFont
:cName := "Arial"
:nSize := 18
:lBold := .t.
END WITH
Printer:lPreview := .t.
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:oFont := oFont
:oPen := oPen
:DrawPicture( {100, 1500, 2000, 2500}, oJpg )
:TextOut( 0, 0, "This first line should be shown partially in almost any printer")
:TextOut( 100, 100, "The above line should be cutted on almost any printer")
:MoveTo( 0+n, 0+n )
:LineTo( 2100-n, 2970-n )
:LineTo( 0+n, 2970-n )
:LineTo( 0+n, 0+n )
:LineTo( 2100-n, 0+n )
:LineTo( 2100-n, 2970-n )
:lTransparent := .f.
:nClrPane := CLR_YELLOW
:oFont:nSize := 14
:TextRect( {1000, 1000, 1500, 1500}, 1000, 1000, "Xailer printing demo", CLR_BLUE)
:lTransparent := .t.
:nClrPane := CLR_WHITE
:nMapMode := mmSIMULCHAR
:oFont:nSize := 12
:oFont:lBold := .f.
For n := 10 to :TextLines()
:TextOut( 4, n, "Xailer printing demo, line: " + ltrim( str( n ) ), CLR_BLUE)
Next
:nMapMode := mmHIMETRICS
:nClrPane := CLR_BLACK
:Rectangle( {700, 200, 800, 300} )
:nClrPane := CLR_GREEN
:RoundRect( {1100, 200, 1200, 300} )
:DrawPicture( {1100, 200, 1200, 300}, oBmp )
:Rectangle( { 1000, 500, 1700, 800 } )
END WITH
Printer:EndPage()
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:TextOut( 100, 100, "Second page")
END WITH
Printer:EndPage()
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:TextOut( 100, 100, "Third page")
END WITH
Printer:EndPage()
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:TextOut( 100, 100, "Forth page")
END WITH
Printer:EndPage()
Printer:EndDoc()
Printer:Preview()
oFont:Destroy()
oBmp:Destroy()
oJpg:Destroy()
RETURN Nil
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje news:42650698$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio, lo tengo negro. He estado mirando este ejemplo y me queda muyyyyy
> grande.
> Sigo con ello, pero Uffffffffff.
> Alguna otra ayudita porfa.
>
> Paco V.
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:4264ae68$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Paco,
>>
>> SamplesPrintingPrinterInfo
>>
>> Saludos,
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
>> news:4263aacf$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> > Necesito imprimir una ficha, y no tengo ni idea por donde empezar.
>> >
>> > He estado viendo los ejemplos y no me entero.
>> >
>> > Porfa, podria ser posible un ejemplito pequeño?
>> >
>> > Gracias.
>> >
>> >
>> > Paco V.
>> >
>> >
>>
>>
>
>
--
Arriba
Responder

Volver a “Spanish”