Impresión de tabla con dibujo de celdas

[TOTOVIOTTI]

Hola gente..
es posible realizar con alguna función de la clase TPrinter una impresión tipo tabla?

Ejemplo, suponemos que vemos el xbrowse de una tabla, quiero mandar a imprimir
esa tabla con el dibujo de las celdas y el contenido... se puede realizar?

Espero se entienda lo que quiero realizar...

Muchas gracias
Roberto

[cmsoft]

Hola Roberto:
Claro que si, pero el proceso es totalmente manual.

Code: Select all  Expand view

PRINT oPrn NAME "Formulario" PREVIEW MODAL
           oPrn:SetPortrait()
           oPrn:SetPage(9)
           PAGE    
            @ 1.7,.9 PRINT TO oPrn IMAGE "logo.jpg" SIZE 8, 3 CM     // Imprimir una imagen        
             oPrn:CmBox( 1.5, .5, 5, 20.5 ) // Box
            @ 5.5, 1  PRINT TO oPrn TEXT "Texto:" ; //Imprimir texto
                      SIZE 2.5,1 CM FONT oFont3 ALIGN "R"
            ENDPAGE
ENDPRINT
 

[TOTOVIOTTI]

Gracias César!
Ya lo estaba haciendo de esta manera... creí que había alguna otra forma de imprimir una grilla tipo excel sin tener que dibujar
celda por celda...
Muchas gracias!
Roberto

[cmsoft]

Roberto:
Si la grilla la tienes en un xBrowse, podrías usar la opcion report

Code: Select all  Expand view

oBrw:Report("Reporte de Articulos",.T.,.F.)

Tambien eso te puede servir