FiveTech Support Forums

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

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