Xailer & OZ Software

¿Cómo se imprimen gráficos en una impresora?
Estoy utilizando esto:
:DrawPicture({0,0,100,100},"tescudo.bmp")
pero me da un error.
Gracias a quien me pueda ayudar

Francisco:
> ¿Cómo se imprimen gráficos en una impresora?
Debes crear primero el objeto Picture, así­:
LOCAL oBmp
oBmp := TPicture():Load( "dibujo.bmp" )
PRINTER:lPreview := .t.
PRINTER:cJobTitle := "CAUDA Impresión de Presupuesto"
PRINTER:StartDoc()
PRINTER:StartPage()
WITH OBJECT PRINTER:oCanvas
PRINTER:StartPage()
:nMapMode := mmHIMETRICS
:DrawPicture( {0,0, 2000, 500}, oBmp )
END
PRINTER:EndDoc()
PRINTER:Preview()
DrawPicture( {columna, renglon, ancho, alto}, <objeto Picture>)
>
> Estoy utilizando esto:
>
> :DrawPicture({0,0,100,100},"tescudo.bmp")
>
> pero me da un error.
>
> Gracias a quien me pueda ayudar

Gracias Rene, me ha funcionado perfectamente.
Me surge una duda. Con este objeto indicamos el ancho y el alto del dibujo,
pero ¿sabes si existe la posibilidad de imprimirlo tal como está diseñado?
Me refiero a indicar solo la posición donde quiero poner el dibujo y que se
imprima tal cual está el original. Por ejemplo, he probado con
:DrawPicture({500,100, , },"tescudo.bmp"), pero me da un error.
Gracias de nuevo por tu ayuda.
Francisco Martí­nez
"Rene Flores" <"rflores[nospam]"@ciber-tec.com> escribió en el mensaje de
noticias:[email=48ed8596@ozsrv2.ozlan.local...]48ed8596@ozsrv2.ozlan.local...[/email]
> Francisco:
>> ¿Cómo se imprimen gráficos en una impresora?
>
> Debes crear primero el objeto Picture, así­:
>
> LOCAL oBmp
> oBmp := TPicture():Load( "dibujo.bmp" )
> PRINTER:lPreview := .t.
> PRINTER:cJobTitle := "CAUDA Impresión de Presupuesto"
> PRINTER:StartDoc()
> PRINTER:StartPage()
> WITH OBJECT PRINTER:oCanvas
> PRINTER:StartPage()
> :nMapMode := mmHIMETRICS
> :DrawPicture( {0,0, 2000, 500}, oBmp )
> END
> PRINTER:EndDoc()
> PRINTER:Preview()
>
> DrawPicture( {columna, renglon, ancho, alto}, <objeto Picture>)
>
>>
>> Estoy utilizando esto:
>>
>> :DrawPicture({0,0,100,100},"tescudo.bmp")
>>
>> pero me da un error.
>>
>> Gracias a quien me pueda ayudar

¿ No podrí­as obtener eso del Objeto ?
Supongo que seria algo similar;
:DrawPicture( {0,0, oBmp:nHeight, oBmp:nWidth}, oBmp )
Saludos
Rafa Carmona