VBA Excel - Trabalhando com Cabeçalho e Rodapé - Work with Header and Footer Properties Using Excel.PagesAndPage

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Este exemplo mostra como usar o cabeçalho e rodapé propriedades do objeto Pages no Microsoft Excel.

Manipulando Impressoras e Impressões: 

• 🖨️ Imprimindo em Impressora Matricial
• 🖨️ Como Automatizar Configurações de Impressão em Relatórios
• 🖨️ Como Listar Todas as Impressoras Instaladas
• 🖨️ Como Listar Tipos de Papel e Bandejas Suportados pela Impressora
• 🖨️ Como Abrir Relatórios Filtrados de Forma Eficiente
• 🖨️ Como Gerenciar Relatórios Sem Dados Usando VBA

Em uma nova planilha, copie todo o código do módulo da pasta Sheet1. 

Coloque o cursor no procedimento WorkWithPages e pressione F8 para iniciar a depuração.

Organize as janelas do VBA e Excel lado a lado para que possa ver os resultados da execução do código.

Sub WorkWithPages() 

    ' Fill random data: 

    Range("A1", "R100").Formula = "=RANDBETWEEN(1, 100)" 

    

    Dim pgs As Pages 

    Set pgs = PageSetup.Pages 

    

    PageSetup.DifferentFirstPageHeaderFooter = True 

    

    ' Look in the Immediate window for this output: 

    Debug.Print "The current sheet can be printed on " & _ 

     pgs.Count & " page(s)." 

     

    Dim pg As Page 

    Set pg = pgs(1) 

    pg.CenterHeader.Text = "This is the first page's header" 

    

    Set pg = pgs(2) 

    pg.CenterFooter.Text = "This is the second page's footer" 

       

    Set pg = pgs(pgs.Count) 

    pg.CenterFooter.Text = "This is the last page's center footer." 

    pg.LeftHeader.Text = "This is the last page's header" 

    

    ' Note that Excel supports only distinct headers/footers 

    ' for the first page, so headers and footers on the second 

    ' and other pages are combined--the last value set overwrites 

    ' the header/footer. 

    

    ' See the values in the Immediate window. 

    ' Note that the code disregards errors that occur--attempting 

    ' to retrieve a header/footer setting that doesn't exist raises an error: 

    On Error Resume Next 

    Debug.Print "First page (CenterHeader) : " & pgs(1).CenterHeader.Text 

    Debug.Print "Second page (CenterHeader): " & pgs(2).CenterHeader.Text 

    Debug.Print "Second page (CenterFooter): " & pgs(2).CenterFooter.Text 

    Debug.Print "Third page (CenterFooter) : " & pgs(3).CenterFooter.Text 

    Debug.Print "Last page (LeftHeader)    : " & pgs(pgs.Count).LeftHeader.Text 

    Debug.Print "Last page (CenterFooter)  : " & pgs(pgs.Count).CenterFooter.Text 

    

    ' In conclusion, use the Page class to retrieve information about headers 

    ' and footers for specific pages. Use the PageSetup object to set the headers 

    ' and footers, as it's clearer to set them there. 

End Sub

👉 Não se esqueça de seguir André Bernardes no Linkedin. Clique aqui e me contate via What's App. 

Comente e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

SQL Access - Selecionando registros especificados dentro de um período - Select specified amount of rows older than specified datetime

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Construir scripts SQL é uma arte aliada a um bom conhecimento técnico. De vez em quando é bom nos aprofundarmos um pouco mais sobre as limitações e alcance do comandos e cláusulas SQL. Por exemplo, é bom saber que:

Há um limite no número de ANDs que você pode usar em uma instrução SQL SELECT não documentado. O limite é 99 ANDs e numa cláusula WHERE é de 99 ANDs em uma cláusula HAVING. 

Microsoft Access retornará as seguintes mensagens de erro quando exceder esse limite: 

Expressão muito complexa

- ou -

Consulta é muito complexa.

O erro também pode ocorrer se a consulta incluir uma expressão de função Switch() que contenha mais de 13 conjuntos de argumento. A solução alternativa é criar uma função definida pelo usuário (UDF) que incorpore a instrução Select Case e chamá-la da consulta.

Existem processos que precisam estar submetidos a períodos como datas e horários. Também é necessário submetê-los a um ranking e etc... Como podemos efetuar essas cláusulas em tabelas, de modo que fiquem condicionados aos períodos, horários e de um modo ranqueado? O modo como escrevemos o nosso código SQL é que definirá o retorno da nossa consulta. Por isso demonstro algumas técnicas de como isso pode ser feito (Divirtam-se):

' Este código retorna todos os emails cadastrados numa tabela chamada

'  "Mails" , cujo o campo "timeReceived" (que registrou a gravação dos

' registros) tenha ocorrência com o período inferior a '2012-04-28 08:53:00'.

"SELECT * FROM ( SELECT * FROM Mails WHERE (timeReceived < '2012-04-28 08:53:00' ) )";

' Este código retorna todos os emails cadastrados numa tabela chamada

'  "Mails" , cujo o campo "timeReceived" (que registrou a gravação dos

' registros) tenha ocorrência com o período igual a '2012-04-28 08:53:00'. 

' Ordenando o resultado pela coluna timeReceived em ordem descendente.

"SELECT * FROM Mails WHERE (timeReceived =  '2012-04-28 08:53:00' ) ORDER BY timeReceived DESC";

' Este código retorna todos os 30 primeiros emails cadastrados na tabela

' "Mails", cujo o campo "timeReceived" (que registrou a gravação dos

' registros) tenham ocorrência com o período inferior a '2012-04-28 08:53:00'.

' Ordenando o resultado pela coluna timeReceived em ordem descendente.

SELECT TOP 30 * FROM Mails WHERE timeReceived  < '2012-04-28 08:53:00'  ORDER BY timeReceived DESC

' Este código retorna todos os 25 primeiros emails cadastrados na tabela

' "Students", cujo o campo "GraduationYear" tenham ocorrência com o período

' igual a '2012'. Ordenando o resultado pela coluna GradePointAverage em

' ordem descendente.

SELECT TOP 25

FirstName, LastName

FROM Students

WHERE GraduationYear = 2003

ORDER BY GradePointAverage DESC

' Este código retorna todos os 30 primeiros emails cadastrados na tabela

' "Mails", cujo o campo "timeReceived" seja inferior a '2012-04-28 08:53:00'.

' Ordenando o resultado pela coluna GTimeReceived em ordem descendente e

' Ordenando a coluna MailID em ordem crescente

SELECT TOP 30 *

FROM Mails

WHERE timeReceived < '2012-04-28 08:53:00'

ORDER BY timeReceived DESC, MailID ASC

   

' Este código retorna todos os 30 primeiros emails cadastrados na tabela

' "Mails", cujo o campo "timeReceived" seja inferior a '2012-04-28 08:53:00'.

' Ordenando o resultado da coluna GTimeReceived em ordem descendente

SELECT top 30 *

FROM Mails

WHERE timeReceived < '2012-04-28 08:53:00'

ORDER BY timeReceived desc

Reference::

http://office.microsoft.com/en-us/ac...313511033.aspx
http://office.microsoft.com/en-us/ac...314971033.aspx

Tags: SQL, Access, Top, descend, ANDs, AND, HAVING, SELECT, DESC, ASC, UDF