[RESOLVIDO] Configurar Pagina Excel

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rogerio, Março 25, 2012.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Galera como eu faço para configurar o tamanho da página / papel no Excel?
    Rogerio, Março 25, 2012
    #1
  2. LFBuozi

    LFBuozi Membro Participativo

    Pode ser assim:
    Código:
    /*--- Layout da página (1-carta / 5-Oficio / 6-Extrato / 7-Executivo / 8-A3 / 9-A4) ---*/
ASSIGN chPlanilha:PageSetup:PaperSize = 9.
    LFBuozi, Março 26, 2012
    #2
  3. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    E se for para um tamanho personalizado?
    Rogerio, Março 26, 2012
    #3
  4. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Não Rolou...

    Tentei primeiro assim
    chExcelApplication:pageSetup:paperSize = 5.
    ERRO:
    Ocorreu erro durante acesso a componente da propriedade/metodo: PageSetup.
    Nome desconhecido.

    Depois
    chExcelApplication:Sheets:ITEM(1):pageSetup:paperSize = 5.
    ERRO
    Ocorreu erro durante acesso a componente da propriedade/metodo: PaperSize.
    Não é possível definir a propriedade PaperSize da classe PageSetup
    Rogerio, Março 26, 2012
    #4
  5. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Alguem poderia me ajudar com essa configuração?
    Rogerio, Março 29, 2012
    #5
  6. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Rogério,

    As opções válidas para o tamanho do papel são, no caso de um tamanho especifico, acredito que seja o valor 256 (xlPaperUser = 256). Veja aí.

    Código:
    
xlPaper10x14 = 16 
xlPaper11x17 = 17 
xlPaperA3 = 8 
xlPaperA4Small = 10 
xlPaperA5 = 11 
xlPaperB4 = 12 
xlPaperB5 = 13 
xlPaperCsheet = 24 
xlPaperDsheet = 25 
xlPaperEnvelope10 = 20 
xlPaperEnvelope11 = 21 
xlPaperEnvelope12 = 22 
xlPaperEnvelope14 = 23 
xlPaperEnvelope9 = 19 
xlPaperEnvelopeB4 = 33 
xlPaperEnvelopeB5 = 34 
xlPaperEnvelopeB6 = 35 
xlPaperEnvelopeC3 = 29 
xlPaperEnvelopeC4 = 30 
xlPaperEnvelopeC5 = 28 
xlPaperEnvelopeC6 = 31 
xlPaperEnvelopeC65 = 32 
xlPaperEnvelopeDL = 27 
xlPaperEnvelopeItaly = 36 
xlPaperEnvelopeMonarch = 37 
xlPaperEnvelopePersonal = 38 
xlPaperEsheet = 26 
xlPaperExecutive = 7 
xlPaperFanfoldLegalGerman = 41 
xlPaperFanfoldStdGerman = 40 
xlPaperFanfoldUS = 39 
xlPaperFolio = 14 
xlPaperLedger = 4 
xlPaperLegal = 5 
xlPaperLetter = 1 
xlPaperLetterSmall = 2 
xlPaperNote = 18 
xlPaperQuarto = 15 
xlPaperStatement = 6 
xlPaperTabloid = 3 
xlPaperUser = 256
    eduardo.leite, Março 29, 2012
    #6
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página