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

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,