Report Imprimir apaisado y seleccionar impresoras

[Databaselab2002]

Estimados Colegas

Quiero imprimir apaisado y seleccionar impresora
probe OREPORT:SETLANDSCAPE() y no me funciona
y quisiera saber como hago para seleccionar impresora
probe con from user y tampoco me funciona

adjunto codigo


Desde ya muchas gracias
fabian
databaselab2002@yahoo.com.ar




SELE 6
USE coopsm
SET INDEX TO MAT


DBGOTOP()


REPORT oReport TITLE "COOPERATIVAS Y MUTUALES " PREVIEW CAPTION "COOPERATIVAS" FROM USER




COLUMN TITLE "MAT " DATA coopsm->MATRICULA
COLUMN TITLE "RAZON SOCIAL" DATA ALLTRIM(SUBSTR(coopsm->RAZON_SOC,1,20)),ALLTRIM(coopsm->PER_NOMBRE)
COLUMN TITLE "DIRECCION" DATA ALLTRIM(coopsm->DIRECCION),ALLTRIM(coopsm->CALDESCRI)+""+ALLTRIM(coopsm->PERALTURA),ALLTRIM(coopsm->DIRECCION1),ALLTRIM(coopsm->TELEFO) &&;TOTAL
* COLUMN TITLE "TELEFONO" DATA ALLTRIM(coopsm->TELEFONO),ALLTRIM(coopsm->PER_CARACT)+""+ALLTRIM(coopsm->PER_TELEFO)
COLUMN TITLE "TELEFONO" DATA ALLTRIM(coopsm->TELEFONO),ALLTRIM(coopsm->PER_CARACT)+""+ALLTRIM(coopsm->PER_TELEFO)
* COLUMN TITLE "CUIT " DATA coopsm->MATRICULA2;TOTAL
COLUMN TITLE "CUIT " DATA ALLTRIM(coopsm->CUIT)

OREPORT:SETLANDSCAPE()

END REPORT


ACTIVATE REPORT oReport

[thefull]

Recuerda que la clase TReport NO HEREDA de TPRINTER, si no que contiene una DATA que es el objeto Printer.
Entonces:

OREPORT:OPRN:SETLANDSCAPE()

Et Voila, yasta!!!