[RESOLVIDO] Excel X Progress

Discussão em 'EMS , HCM e Totvs 11' iniciado por Ivone, Fevereiro 13, 2014.

?

O QUE SERÁ QUE ESTÁ ACONTECENDO?

Poll closed Fevereiro 13, 2014.
  1. Excel x progress

    0 voto(s)
    0.0%
  2. Excel x progress

    0 voto(s)
    0.0%
Multiplos votos são permitidos.
Status do Tópico:
Não esta aberto para novas mensagens.
  1. Ivone

    Ivone Membro Participativo

    chWorksheet:HPageBreaks:Add(chWorksheet:Range("A" + string(index-lin) + ":X" + string(index-lin))). não deu certo

    sim index-lin é apenas a linha e o index-col é a coluna.
  2. Willsakai

    Willsakai Sem Pontuação

    No meu caso funcionou no Excel 2007 e 2010.

    chWorkSheet:pageSetup:printTitleRows = "$1:$6". /* repete o range de linhas de 1 a 6 na impressão de todas as páginas */

    chWorkSheet:HPageBreaks:Add(chWorksheet:Range("A" + STRING(liLinha + 1))). /* A linha do ultimo item + 1 */
  3. Ivone

    Ivone Membro Participativo

    Gente! Consegui! desta forma: excelAppl:Range("A1"):pageBreak = 1.
    Obrigada pessoal!
  4. Ivone

    Ivone Membro Participativo

    Ufa! Consegui!
    excelAPP:Range("A" + STRING(index-lin)):pageBreak = 1.
    Valeu Pessoal!
  5. michel

    michel Membro Participativo

    No meu caso uso assim:

    assign ChWorkSheet = excelappl:ActiveSheet.
    excelappl:worksheets:item(1):select. /* Pasta do Excel /*
    chworkSheet:range("a" + string(int(linha + 0))):SELECT().
    excelappl:ActiveWindow:SelectedSheets:HPageBreaks:ADD(ChWorkSheet:range("a" + string(int(linha + 0)) + ":eek:" + string(int(linha + 0)))).
    assign linha = linha + 1.

    assign ChWorkSheet = excelappl:ActiveSheet.
    excelappl:worksheets:item(1):select.
    chworkSheet:range("a" + string(int(linha + 0))):SELECT().
    chworkSheet:pictures:Insert("\\servidor\Totvs\Documentos\imagem.jpg"):Select().
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página