Configurar Excel Quebra de Página Vertical VPageBreaks

Discussão em 'Progress 4GL' iniciado por eriutoncharles, Fevereiro 28, 2011.

  1. eriutoncharles

    eriutoncharles Membro Participativo

    Boa Tarde Pessoal,

    Alguem poderia me ajudar... Estou precisando configurar via comando progress, um relatório no excel, para que sua quebra de página vertical mude da coluna "C" para a Coluna "F".


    Gravei uma Macro pra tentar transformar o codigo VB Para 4gl porém sem sucesso.
    Segue a Macro
    Código:
    Sub Macro1()
    '
    ' Macro1 Macro
    ' Macro gravada em 28/02/2011 por Charles
    '
    
    '
        ActiveWindow.SelectedSheets.PrintPreview
        ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    End Sub
    
    Se alguem manja de transformar códigos do VB para o Progress , me ajuda ai por favor !
    Um Abraço !
    Guilherme.Moles curtiu isso.
  2. mcarril

    mcarril Membro Participativo

    Se não me engano temos postado no site apostilas com os comandos excel utilizados no progress.
    Procure nos índices do forum.
  3. Guilherme.Moles

    Guilherme.Moles Membro Participativo

    As apostilas Progress X Excel são inúteis quando precisamos de comandos mais elaborados... eriutoncharles eu tenho tido muita demanda em excel e particularmente odeio trabalhar com modelos, tenho também convertido várias macros de excel para progress e tive um problema igual ao seu essa semana quebrei a cabeça mas consegui alterar a quebra da página via programação, segue abaixo o trecho do código.
    Código:
            
    chExcelApplication:ActiveWindow:VIEW = 2.
    chworksheet:PageSetup:PrintArea = "".
    chworksheet:ResetAllPageBreaks.
    NO-RETURN-VALUE chworksheet:VPageBreaks(1):DragOff(-4161,1).
    chExcelApplication:ActiveWindow:VIEW = 1.
  4. tcoutinho

    tcoutinho Moderador Moderador Equipe de Suporte

    Para descrobrir o valor do "xltoright".
    Quando estiver com a macro aberta, aperte a tecla F2, será exibida a janela abaixo, informe "xltoright" ou o que desejar, em seguida clique em no botão pesquisar, será exibido o valor conforme abaixo "-4161".

    upload_2014-1-16_15-29-20.png
  5. eriutoncharles

    eriutoncharles Membro Participativo

    Olá, Boa tarde pessoal!

    Andei uns dias sumido daqui. Em relação ao post, como não consegui ajuda a tempo, fiz uma "gambiarra", mas estou sempre precisando dessa questão da quebra de página e de dicas em relação a conversão de vb para progress.
    Desde de já Muito obrigado caro Guilherme! Vou teste, mas pelo visto, com certeza dará certo!
    Um Abraço!
  6. eriutoncharles

    eriutoncharles Membro Participativo

    Muito Obrigado pela dica meu caro. É de grande valia este "bizu"!

Compartilhe esta Página