visualizar apaisado con la clase report

[artu01]

Gente quiero mostrar mi pagina apaisada para un reporte con la clase report pero no he tenido exito con esta instruccion

oRpt:oDevice:SETLANDSCAPE()
oRpt:Stabilize()
Con la vers. fw2.1 recuerdo que el apaisado era automatico pero ahora que compilo con xharbour y fwh 8, ya no se cambia hasta
que yo vaya a propiedadades de impresora y seleccion modo vertical

Que instruccion falta para lograr mi cometido

Gracias amigos

[artu01]

Sres. es que no hay algun comando para echar la hoja?

[FranciscoA]

Hola, si usas TReport, prueba con: PrnLandScape() // Horizontal

[artu01]

Hola Francisco,
Le puse oRpt:PrnLandScape()
asi:
ACTIVATE REPORT oRpt ;
on init oRpt:PrnLandScape()

pero no funciona

tambien asi:

ACTIVATE REPORT oRpt ;
on init oRpt:oDevice:SetLandScape()
y tampoco lo voltea

Creo el comando SetLandScape() le pertenece a la clase Tprinter , por eso le puse oDevice, pero no obedece el comando
Que falta adicionarle para que funque

pd. estoy compilando las clases mreport y pdreport tendra algo que ver?

Gracias
Uso. Fwh8.11, xharbour build 1.1.0 (Simplex) (Rev.6195), pellesC

[QAZWSX2K]

a mi me funciona con

oPrn:SetLandscape()

[artu01]

Hola, no me funciona
no se por que no se hecha la pagina

alguien mas que pueda dar una luz

[karinha]

Code: Select all  Expand view

#Include "Report.Ch"          

STATIC FUNCTION IMPRIMESER( oLbxServ )

   LOCAL oPen1, oPen2          
   LOCAL oFont1, oFont2, oFont3
   LOCAL oReport                
   LOCAL nRegistro := RecNo()  

   // Gera o Preview

   DEFINE PEN oPen1 WIDTH 2    
   DEFINE PEN oPen2 WIDTH 1    

   DEFINE FONT oFont1 NAME "Arial"       SIZE 0, -11
   DEFINE FONT oFont2 NAME "Arial"       SIZE 0, -11
   DEFINE FONT oFont3 NAME "Courier New" SIZE 0,  10 // Para Imprimir MEMOS

   SELECT( SER ) //-> Carrega o Banco: SERVIDOR.DBF
   DbGoTop()

   REPORT oReport TITLE "Listagem dos SERVIDORES de Emails " ;
      CAPTION "Catálogo: SERVIDORES"                         ;
      HEADER "SERVIDORES",                                   ;
      "Data:   " + DTOC( DATE() ),                           ;
      "Página: " + STR( oReport:nPage, 3 )                   ;
      FOOTER "- SERVIDORES -" CENTER                         ;
      FONT oFont1, oFont2, oFont3                            ;
      PEN oPen1, oPen2 ; //-> Tipo de linha a usar no cabe‡alho
      PREVIEW //-> Ativa o Preview - Listagem

      //-> Para o Preview Maximizar e Nao Ficar no Rodape do Windows
      oReport:oDevice:lPrvModal := .T.
      oReport:oDevice:SetPage(9) //-> Formato A4

      COLUMN TITLE "Entrada POP3 " DATA ( SER )->SEMAILPOP3, ;
             +     "Email: "       +    ( SER )->SEMAILCONT, ;
             +     "Https: " +  IIF( ( SER )->CONEXAOSEG = .T., "Sim", "Não") FONT 2

      COLUMN TITLE "Saida   SMTP " DATA ( SER )->SEMAILSMTP, ;
             +     "Nº. Porta: "   + STR(( SER )->NPORTASERV), ;
             +     "Usuário: "     + ( SER )->NOMEDOUSUA FONT 2

      // COLUMN TITLE "SENHACONTA " DATA ( SER )->SENHACONTA FONT 2

   END REPORT

   IF !oReport:lCreated
      RETURN NIL
   ENDIF

   oReport:CellView()

   ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }

   oPen1:End()  
   oPen2:End()  
   oFont1:End()
   oFont2:End()
   oFont3:End()

   oLbxServ:GoTop()
   oLbxServ:Refresh()

   //-> DbGoTo( nRegistro )

RETURN NIL
 



[artu01]

Gracias a todos los q me ayudaron
No me funcionaba por que habia declarado la funcion PrnLandScape() despues de declarar REPORT oRpt
cuando se tiene que hacer antes.

Gracias