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
Sres. es que no hay algun comando para echar la hoja?
Hola, si usas TReport, prueba con: PrnLandScape() // Horizontal
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
a mi me funciona con
oPrn:SetLandscape()
Hola, no me funciona
no se por que no se hecha la pagina
alguien mas que pueda dar una luz
#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 NILGracias 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