Report

[Theotokos]

Boa Tarde, criei um relatorio de contas, porem as colunas apesar de caberem em modo RETRATO na folha A4, esta saindo com o LANDSCAPE... alguem sabe como "Setar" como RETRATO e não deixar que faça automatico?

o relatorio é este:

		Report oRelat ;
			CAPTION If(nArquivo=1,"Relatório de Contas à Pagar","Relatório de Contas Pagas") ; 
			TITLE cNomeEmpresa,If(nArquivo=1,"Relatório de Contas à Pagar","Relatório de Contas Pagas"),;
					"Tipo : " + cTipo + " Categoria : " + cCategoria,;
					"Período : "+dtoc(d1Vencimento)+" à "+dtoc(d2Vencimento) FONT oFt1 PEN oGd1;
			FOOTER "Data: "+dtoc(Date())+"   Pagina: "+Str(oRelat:nPage,3) CENTERED ;
			PREVIEW
         
			Column Title "Nº Docum." 			Data AP_NUMDOC 		SIZE 7
			Column Title "Fornecedor"			Data AP_DESCRIC 		SIZE 30 
			Column Title "Vencimento"			Data AP_DATA			SIZE 8
			If nArquivo = 2
				Column Title "Pagamento"		Data AP_DATAPG			SIZE 8
				Column Title "Valor Pago"		DATA AP_VALOR			SIZE 9 TOTAL RIGHT
			Else
				Column Title "Valor Pagar"		DATA AP_VALOR			SIZE 9 TOTAL RIGHT
			EndIf
			Column Title "Categoria"			Data AP_CATEGOR		SIZE 15
			Column Title "Tipo"					Data AP_TIPO			SIZE 15

		  		*GROUP oG1 ON AP_DATA 	FOOTER "T O T A L" 
				  		
		End Report
		*      
		oRelat:Stabilize()
		oRelat:CellView()
		Activate Report oRelat ON STARTGROUP( oRelat:NewLine() )

 

[kapiaba]

FUNC...
	   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,  09 BOLD
	   PrnPortrait()   //vertical ou
   // oReport:SetPortrait() //Vertical
	   REPORT oReport TITLE "Listagem de Notas Fiscais, com STATUS: "+ cTitleImp ;
      CAPTION "Catálogo de Notas Fiscais, com STATUS: "          + cTitleImp ;
      HEADER "Empresa: " + UPPER( wNomeEmpresa ),                            ;
      "Data: "   + DTOC( DATE() ),                                           ;
      "Página: " + STR( oReport:nPage, 3 )                                   ;
      FOOTER OemToAnsi( "- CADASTRO DE NOTAS FISCAIS ELETRâNICAS -" ) CENTER ;
      FONT oFont1, oFont2, oFont3                                            ;
      PEN oPen1, oPen2 ;      //-> Tipo de linha a usar no cabecalho
      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 "Nº. NF-e: "        DATA  IIF( CADPARAM->TPAMB=[1],       ;
             xPadl( Alltrim( Str( ( cAlias )->NFECOD, 6,0 ) ),  6   ),       ;
             xPadl( Alltrim( Str( ( cAlias )->FATURCOD, 6,0 ) ),  6 ) ),     ;
             + "STATUS: " +       ( cAlias )->STATUS FONT 3 CENTER SHADOW GRID
	      lGrid := .F.
	      COLUMN TITLE "Nº. PEDIDO: "      DATA ( cAlias )->PEDIDCOD,            ;
                 + "" +                     ( cAlias )->STATUS,              ;
                 + IIF( ( cAlias )->TPFAT_OP = "P", "FAT. PEDIDOS", "FAT. OUTROS" )  ;
                 FONT 3 CENTER
	      COLUMN TITLE "NOME DO CLIENTE/CHAVE/PROT/REC: " DATA PEGA_NOME_CLIENTE(), ;
                 + "CHAVE: " + ALLTRIM( ( cAlias )->CHAVEACES ), ;
                 + "PROT.: " + ALLTRIM( ( cAlias )->PROTOCOLO ) + " - " + ;
                 + "REC.: "  + ALLTRIM( ( cAlias )->RECIBO ) FONT 3
	      COLUMN TITLE "DATA: "            DATA TRANSF( ( cAlias )->DATA, "@D 99/99/9999" ), ;
                       + "" +                       ( cAlias )->STATUS,      ;
                       + IIF( ( cAlias )->TPFAT_OP = "P", "PEDIDOS", "OUTROS" ) FONT 3 CENTER
	      COLUMN TITLE "HORA: "            DATA ( cAlias )->HORA,                ;
                 + "" +                     ( cAlias )->STATUS,              ;
                 + IIF( ( cAlias )->TPFAT_OP = "P", "PEDIDOS", "OUTROS" )  FONT 3 CENTER
	   END REPORT 
	   IF !oReport:lCreated 
      RETURN NIL
   ELSE
      oReport:SetTxtColor(CLR_HBLUE,1)
      oReport:SetTxtColor(CLR_HRED, 2)
      oReport:SetTxtColor(CLR_HBLUE,3)
      oReport:SetPenColor(CLR_HBLUE  )
      oReport:SetShdColor(CLR_HCYAN  )
   ENDIF
	   oReport:CellView()
	   ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }
	   oPen1:End()  
   oPen2:End()  
   oFont1:End() 
   oFont2:End() 
   oFont3:End()
	RETURN NIL

 

[Theotokos]

Vlw! @Kapiaba