Imprimir un TArrayBrowse

[Fernando Leal]

La última pregunta para el tema de los Arrays.
Tengo un array inicializado asi:
METHOD FormInitialize( oSender ) CLASS TForm1
::oArrayBrowse1:SetArray( directory() )
RETURN Nil
Dada lo flexible que es el control, quitar columnas, agregar columnas, ancho
de columnas, etc.
¿Como lo envio a la impresora?
¿Hay algún metodo abreviado o hay que hacerlo a mano?
Lo que quiero es enviar todas las columnas por default que aparecen en el
TArrayBrowse a la impresora... ahora que si mi intuición no me engaña,
tambien hay un preview antes de imprimir. Eso ya lo ví en el Report
Gracias de antemano y tener paciencia que ya comienzo a agarrar camino.
Fernando
México, DF

[ignacio]

Fernando,
Local oReport, nRow
nRow := 1
REPORT oReport ;
TITLE "ArrayBrowse report" ;
PREVIEW
COLUMN OF oReport ;
TITLE "..." ;
DATA aData[ nRow, 1 ]
COLUMN OF oReport ;
TITLE "..." ;
DATA aData[ nRow, 2 ]
WITH OBJECT oReport
:bWhile := {|| nRow <= Len( aData ) }
:bSkip := {|| nRow ++ }
END WITH
RUN REPORT oReport
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Leal" <visitante32@hotmail.com> escribió en el mensaje
news:45acd4f8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> La última pregunta para el tema de los Arrays.
>
> Tengo un array inicializado asi:
>
> METHOD FormInitialize( oSender ) CLASS TForm1
> ::oArrayBrowse1:SetArray( directory() )
> RETURN Nil
>
> Dada lo flexible que es el control, quitar columnas, agregar columnas,
> ancho de columnas, etc.
> ¿Como lo envio a la impresora?
> ¿Hay algún metodo abreviado o hay que hacerlo a mano?
> Lo que quiero es enviar todas las columnas por default que aparecen en el
> TArrayBrowse a la impresora... ahora que si mi intuición no me engaña,
> tambien hay un preview antes de imprimir. Eso ya lo ví en el Report
>
> Gracias de antemano y tener paciencia que ya comienzo a agarrar camino.
> Fernando
> México, DF
>
>

[Fernando Leal]

Me tomó unos minutos entender su ejemplo. Pero con su ayuda y la explicación
que veiene en el pdf lo entendí perfectamente.
Lo que en mi caso se traduce como
COLUMN OF oReport ;
TITLE "..." ;
DATA ::oArrayBrowse1:aArrayData[ nRow, 1 ]
//DATA aData[ nRow, 1 ]
COLUMN OF oReport ;
TITLE "..." ;
DATA ::oArrayBrowse1:aArrayData[ nRow, 2 ]
//DATA aData[ nRow, 2 ]
WITH OBJECT oReport
// :bWhile := {|| nRow <= Len( aData ) }
:bWhile := {|| nRow <= Len( ::oArrayBrowse1:aArrayData ) }
:bSkip := {|| nRow ++ }
END WITH
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45acf69b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Fernando,
>
> Local oReport, nRow
>
> nRow := 1
>
> REPORT oReport ;
> TITLE "ArrayBrowse report" ;
> PREVIEW
>
> COLUMN OF oReport ;
> TITLE "..." ;
> DATA aData[ nRow, 1 ]
>
> COLUMN OF oReport ;
> TITLE "..." ;
> DATA aData[ nRow, 2 ]
>
> WITH OBJECT oReport
> :bWhile := {|| nRow <= Len( aData ) }
> :bSkip := {|| nRow ++ }
> END WITH
>
> RUN REPORT oReport
>
> Saludos
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Fernando Leal" <visitante32@hotmail.com> escribió en el mensaje
> news:45acd4f8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> La última pregunta para el tema de los Arrays.
>>
>> Tengo un array inicializado asi:
>>
>> METHOD FormInitialize( oSender ) CLASS TForm1
>> ::oArrayBrowse1:SetArray( directory() )
>> RETURN Nil
>>
>> Dada lo flexible que es el control, quitar columnas, agregar columnas,
>> ancho de columnas, etc.
>> ¿Como lo envio a la impresora?
>> ¿Hay algún metodo abreviado o hay que hacerlo a mano?
>> Lo que quiero es enviar todas las columnas por default que aparecen en el
>> TArrayBrowse a la impresora... ahora que si mi intuición no me engaña,
>> tambien hay un preview antes de imprimir. Eso ya lo ví en el Report
>>
>> Gracias de antemano y tener paciencia que ya comienzo a agarrar camino.
>> Fernando
>> México, DF
>>
>>
>
>