Cabeçalho PageSetup

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Cabeçalho PageSetup

Mensagempor Fernandox » Qua Mai 16, 2018 12:28 pm

Ola Pessoal, tenho feito a impressao do cabeçalho, e agora preciso inserir uma nova linha abaixo desta linha do cabeçalho, não estou conseguindo resolver, se alguem souber e puder estar me orientando, fico grato, abraço

Código: Selecionar todos
Sub Cabecalho()
         ActiveSheet.PageSetup.CenterHeader = "&lEmpresa: " _
         & Empresa & "&C  Data Emissão: " _
         & "&D" _
         & " &B&I &I&B&T &R" _
         & "  Pagina  &P "
----> Inserir nesta linha o endereco da empresa
End Sub
Fernandox
Membro
Membro
 
Mensagens: 51
Registrado em: Qui Mar 29, 2018 8:28 am
Has thanked: 9 times
Have thanks: 3 times

{ SO_SELECT }

Re: Cabeçalho PageSetup

Mensagempor MPrudencio » Qua Mai 16, 2018 8:12 pm

Não é mais simples deixar a pasta pre-configurada?

Não ha necessidade de fazer este tipo de configuração pelo VBA se deixar uma folha como modelo a ser seguido.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

MPrudencio
Membro
Membro
 
Mensagens: 2568
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 68 times
Have thanks: 549 times

Re: Cabeçalho PageSetup

Mensagempor Fernandox » Sex Mai 18, 2018 1:25 pm

Ola Marcelo, fico grato pela dica e orientação, tenho feito conforme voce havia dito para outros relatorios mais simples, como neste caso estou configurando de outra maneira, para aprender o funcionamento no momento, caso tenha alguma dica de como inserir uma linha abaixo do cabeçalho agradeceria pela ajuda, abraço
Fernandox
Membro
Membro
 
Mensagens: 51
Registrado em: Qui Mar 29, 2018 8:28 am
Has thanked: 9 times
Have thanks: 3 times

Re: Cabeçalho PageSetup

Mensagempor MPrudencio » Sáb Mai 19, 2018 12:14 pm

Tente assim:




Código: Selecionar todos
Sub Cabecalho()
         ActiveSheet.PageSetup.CenterHeader = "&lEmpresa: " _
         & Empresa & "&C  Data Emissão: " _
         & "&D" _
         & " &B&I &I&B&T &R" _
         & "  Pagina  &P " _
         & " Endereço da empresa"
End Sub



Troque o "Endereço da empresa" pela informação que vc desejar mantendo as aspas
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

MPrudencio
Membro
Membro
 
Mensagens: 2568
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 68 times
Have thanks: 549 times

Re: Cabeçalho PageSetup

Mensagempor Fernandox » Seg Mai 21, 2018 11:54 am

Ola Marcelo, muito obrg pela dica, só que esta linha na qual voce havia descrito saiu na continuação da primeira linha, será que existe algum comando em que eu possa inserir nesta linha em que voce indicou que pule para a proxima linha, seria legal, assim resolveria, ja pesquisei e não consegui encontrar nada relacionado, caso tenha conhecimento, ficarei grato pela orientação, abraço
Você não está autorizado a ver ou baixar esse anexo.
Fernandox
Membro
Membro
 
Mensagens: 51
Registrado em: Qui Mar 29, 2018 8:28 am
Has thanked: 9 times
Have thanks: 3 times

Re: Cabeçalho PageSetup

Mensagempor Fernandox » Ter Mai 22, 2018 12:23 pm

Ola Pessoal, consegui inserir uma segunda linha no cabeçalho, só que não estou conseguindo deixa-la logo abaixo da primeira linha do cabeçalho, alguem poderia me ajudar, por favor, obrg a todos que postarem no auxilio, grato, abraço
Obs.: Gostaria que o endereço estive logo abaixo da primeira linha do cabeçalho

Código: Selecionar todos
Sub Cabecalho_Rodape()
Dim lin As Integer
        'Impressao do Cabeçalho
        ActiveSheet.PageSetup.CenterHeader = "  &lEmpresa: " _
         & W_Empresa & "&C  Data Emissão: " _
         & "&D" _
         & " &B&I &I&B&T &R" _
         & "  Pagina  &P "
               
        'Imprimir a segunda linha do cabecalho
          ActiveSheet.Cells(ActiveCell.Row) = "&l" & W_Endereco
        ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(1).Address
Você não está autorizado a ver ou baixar esse anexo.
Fernandox
Membro
Membro
 
Mensagens: 51
Registrado em: Qui Mar 29, 2018 8:28 am
Has thanked: 9 times
Have thanks: 3 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 4 visitantes