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

[DanielPuente]

Fabian:

cImpresora:=PRINTERSETUP()

REPORT oReport ;
TITLE oemtoansi("Listado de Proveedores ")+cTexto,;
"" CENTERED ;
FONT oFont1,;
oFont2,;
oFont3,oFont4,oFont5,oFont6,oFont7,oFont8,oFont9,oFont10 ;
PEN oPen1,;
oPen2 ;
HEADER " ",;
"Fecha: "+dtoc(date()),;
"Hora: "+LEFT(time(),5),"","","","" ;
RIGHT ;
FOOTER "Pagina: "+str(oReport:nPage,3),;
"" CENTERED ;
CAPTION "Listado de Proveedores "+cTexto;
PREVIEW TO cImpresora

oReport:oDevice:SetLANDSCAPE()

Saludos,