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.
>> >
>> >
>>
>>
>
>
--