Ajuda com Excell

Discussão em 'Progress 4GL' iniciado por danielsufiatti, Outubro 18, 2011.

Página 2 de 2
  1. danielsufiatti

    danielsufiatti Sem Pontuação

    Olá
    Ja tentei fazer uma macro, e rodar ela utilizando o Run do VBa
    funciona, ele roda a macro,
    mas ai como faço pra passar o texto(Nome) por parametro?
    danielsufiatti, Outubro 18, 2011
    #7
  2. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Caro colega,

    Não consegui fazer diretamente inserindo a informação na caixa de texto, mas do jeito que ficou acho que irá te atender, veja o exemplo abaixo:

    Arquivos Anexados:

    eduardo.leite, Outubro 18, 2011
    #8
  3. Rodrigo Rossetto

    Rodrigo Rossetto Membro Participativo

    Colega, para aquele meu caso ficou assim:

    VBA
    Código:
    Sub QuebraPagina(ip_pos)
    Cells(ip_pos, 1).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub
    PROGRESS
    Código:
    NO-RETURN-VALUE chExcelApplication:RUN("QuebraPagina",tt-quebra_pagina.linha). /*Macro interna do modelo, recebe a linha e quebra a página*/
    Rodrigo Rossetto, Outubro 18, 2011
    #9
  4. danielsufiatti

    danielsufiatti Sem Pontuação

    Isso mesmo que precisava!
    deu certinho, só coloquei a imagem de fundo, ficou show
    Muitissimo obrigado amigo
    Grato pela ajuda!
    danielsufiatti, Outubro 19, 2011
    #10
Página 2 de 2

Compartilhe esta Página