Tutorial Completo: Impressão com Excel VBA

Curso EAD – Prof. Expedito Marcondes

Este tutorial foi criado para ensinar aos alunos como controlar todos os aspectos da impressão no Excel usando macros VBA, desde configurações de página até exportação em PDF. Com 30 exemplos práticos, você aprenderá a criar soluções automatizadas para relatórios, planilhas e documentos comerciais.

O que você vai aprender:

Configurações de Página

• Ajustar margens, orientação e tamanho do papel
• Definir área de impressão e escalonamento
• Configurar cabeçalhos e rodapés

Comandos de Impressão

• Imprimir planilhas específicas ou múltiplas
• Imprimir intervalo de células
• Imprimir com visualização ou diretamente

Exportação e Salvamento

• Exportar como PDF
• Salvar como arquivo de imagem
• Criar relatórios prontos para impressão

Automação Inteligente

• Verificar se há dados antes de imprimir
• Contar páginas e ajustar zoom
• Imprimir com base em critérios (ex: datas, valores)

   Macros VBA para Impressão no Excel

Com exemplos e explicações práticas

Exemplo 1 – Imprimir Planilha Ativa

Sub ImprimirAtiva()
    ActiveSheet.PrintOut
End Sub

Descrição: Imprime diretamente a planilha que está ativa no momento.

Exemplo 2 – Imprimir Planilha Específica

Sub ImprimirPlanilha()
    Sheets("Relatorio").PrintOut
End Sub

Descrição: Imprime a planilha chamada “Relatorio”, mesmo que não esteja ativa.

Exemplo 3 – Visualizar Antes de Imprimir

Sub VisualizarImpressao()
    ActiveSheet.PrintPreview
End Sub

Descrição: Abre a visualização de impressão da planilha ativa.

Exemplo 4 – Definir Área de Impressão

Sub DefinirArea()
    ActiveSheet.PageSetup.PrintArea = "A1:D20"
End Sub

Descrição: Define a área de impressão entre as células A1 e D20.

Exemplo 5 – Ajustar para Uma Página

Sub AjustarUmaPagina()
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

Descrição: Ajusta a planilha para caber em uma única página na impressão.

Exemplo 6 – Orientação Retrato

Sub OrientacaoRetrato()
    ActiveSheet.PageSetup.Orientation = xlPortrait
End Sub

Descrição: Define a orientação da impressão como retrato (vertical).

Exemplo 7 – Orientação Paisagem

Sub OrientacaoPaisagem()
    ActiveSheet.PageSetup.Orientation = xlLandscape
End Sub

Descrição: Define a orientação da impressão como paisagem (horizontal).

Exemplo 8 – Margens Personalizadas

Sub MargensPersonalizadas()
    With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
    End With
End Sub

Descrição: Define margens superiores, inferiores e laterais em polegadas.

Exemplo 9 – Cabeçalho Personalizado

Sub Cabecalho()
    ActiveSheet.PageSetup.CenterHeader = "Relatório de Vendas"
End Sub

Descrição: Insere um cabeçalho central com o texto “Relatório de Vendas”.

Exemplo 10 – Rodapé com Data

Sub RodapeData()
    ActiveSheet.PageSetup.RightFooter = Format(Date, "dd/mm/yyyy")
End Sub

Descrição: Insere a data atual no rodapé direito da página.

Exemplo 11 – Imprimir Intervalo de Células

Sub ImprimirIntervalo()
    Range("A1:D20").PrintOut
End Sub

Descrição: Imprime apenas o intervalo de células especificado.

Exemplo 12 – Imprimir Múltiplas Planilhas

Sub ImprimirMultiplas()
    Sheets(Array("Plan1", "Plan2")).PrintOut
End Sub

Descrição: Imprime as planilhas “Plan1” e “Plan2” juntas.

Exemplo 13 – Exportar como PDF

Sub ExportarPDF()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Relatorio.pdf"
End Sub

Descrição: Exporta a planilha ativa como arquivo PDF.

Exemplo 14 – Imprimir em Cópias Múltiplas

Sub ImprimirCopias()
    ActiveSheet.PrintOut Copies:=3
End Sub

Descrição: Imprime 3 cópias da planilha ativa.

Exemplo 15 – Imprimir Sem Cabeçalho

Sub SemCabecalho()
    ActiveSheet.PageSetup.CenterHeader = ""
End Sub

Descrição: Remove o cabeçalho central da página.

Exemplo 16 – Imprimir com Zoom 80%

Sub Zoom80()
    ActiveSheet.PageSetup.Zoom = 80
End Sub

Descrição: Define o zoom da impressão para 80%.

Exemplo 17 – Imprimir Apenas Linhas Visíveis

Sub ImprimirVisiveis()
    ActiveSheet.PrintOut IgnorePrintAreas:=False
End Sub

Descrição: Imprime apenas as áreas visíveis e definidas para impressão.

Exemplo 18 – Imprimir com Título Repetido

Sub TituloRepetido()
    ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
End Sub

Descrição: Repete a primeira linha como título em todas as páginas impressas.

Exemplo 19 – Imprimir com Colunas Repetidas

Sub ColunaRepetida()
    ActiveSheet.PageSetup.PrintTitleColumns = "$A:$A"
End Sub

Descrição: Repete a primeira coluna em todas as páginas impressas.

Exemplo 20 – Imprimir Planilha Oculta

Sub ImprimirOculta()
    Sheets("PlanOculta").Visible = True
    Sheets("PlanOculta").PrintOut
    Sheets("PlanOculta").Visible = False
End Sub

Descrição: Torna a planilha visível, imprime e oculta novamente.

Exemplo 21 – Imprimir com Nome do Usuário

Sub RodapeUsuario()
    ActiveSheet.PageSetup.LeftFooter = Application.UserName
End Sub

Descrição: Insere o nome do usuário do Excel no rodapé esquerdo.

Exemplo 22 – Imprimir com Hora Atual

Sub RodapeHora()
    ActiveSheet.PageSetup.CenterFooter = Format(Time, "hh:mm:ss")
End Sub

Descrição: Insere a hora atual no rodapé central.

Exemplo 23 – Imprimir com Nome da Planilha

Sub RodapeNomePlanilha()
    ActiveSheet.PageSetup.RightFooter = ActiveSheet.Name
End Sub

Descrição: Insere o nome da planilha no rodapé direito.

Exemplo 24 – Imprimir com Nome do Arquivo

Sub RodapeArquivo()
    ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.Name
End Sub

Descrição: Insere o nome do arquivo no cabeçalho esquerdo.

Exemplo 25 – Imprimir com Número de Página

Sub NumeroPagina()
    ActiveSheet.PageSetup.CenterFooter = "Página &P de &N"
End Sub

Descrição: Exibe o número da página e total de páginas no rodapé central.

Exemplo 26 – Imprimir com Escala Personalizada

Sub EscalaPersonalizada()
    ActiveSheet.PageSetup.Zoom = 120
End Sub

Descrição: Define o zoom da impressão para 120%.

Exemplo 27 – Imprimir com Cor de Fundo

Sub CorFundo()
    ActiveSheet.PageSetup.BlackAndWhite = False
End Sub

Descrição: Permite imprimir com cores, desativando o modo preto e branco.

  Exemplo 28 – Imprimir em Preto e Branco

Sub ImprimirPretoBranco()
    ActiveSheet.PageSetup.BlackAndWhite = True
End Sub

Descrição: Ativa o modo de impressão em preto e branco, útil para economizar tinta ou imprimir relatórios simples.

Exemplo 29 – Imprimir com Qualidade de Rascunho

Sub QualidadeRascunho()
    ActiveSheet.PageSetup.Draft = True
End Sub

Descrição: Define a impressão como rascunho, acelerando o processo e economizando recursos.

Exemplo 30 – Imprimir com Escala Automática

Sub EscalaAutomatica()
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
End Sub

Descrição: Ajusta a planilha para caber em uma página de largura, mas permite múltiplas páginas de altura conforme necessário.

Exemplo 31 – Imprimir Todas as Planilhas do Arquivo

Sub ImprimirTodasPlanilhas()
    ThisWorkbook.PrintOut
End Sub

Descrição: Imprime todas as planilhas do arquivo atual.

Exemplo 32 – Imprimir Planilha Ativa em Dupla Face

Sub ImprimirDuplaFace()
    ActiveSheet.PrintOut Collate:=True
End Sub

Descrição: Imprime a planilha ativa com agrupamento, ideal para impressão frente e verso.

Exemplo 33 – Imprimir Planilha com Intervalo de Páginas

Sub ImprimirIntervaloPaginas()
    ActiveSheet.PrintOut From:=1, To:=2
End Sub

Descrição: Imprime apenas da página 1 até a página 2 da planilha ativa.

Exemplo 34 – Imprimir Planilha com Qualidade Alta

Sub ImprimirAltaQualidade()
    ActiveSheet.PageSetup.PrintQuality = 600
End Sub

Descrição: Define a qualidade de impressão para 600 dpi (alta resolução).

Exemplo 35 – Imprimir Planilha com Tamanho A4

Sub TamanhoA4()
    ActiveSheet.PageSetup.PaperSize = xlPaperA4
End Sub

Descrição: Define o tamanho do papel como A4.

Exemplo 36 – Imprimir Planilha com Tamanho Carta

Sub TamanhoCarta()
    ActiveSheet.PageSetup.PaperSize = xlPaperLetter
End Sub

Descrição: Define o tamanho do papel como Carta (Letter).

Exemplo 37 – Imprimir Planilha com Tamanho Personalizado

Sub TamanhoPersonalizado()
    ActiveSheet.PageSetup.PaperSize = xlPaperLegal
End Sub

Descrição: Define o tamanho do papel como Legal (mais longo que o A4).

Exemplo 38 – Imprimir Planilha com Cabeçalho em Negrito

Sub CabecalhoNegrito()
    ActiveSheet.PageSetup.CenterHeader = "&BRelatório de Estoque"
End Sub

Descrição: Insere um cabeçalho central em negrito com o texto “Relatório de Estoque”.

Exemplo 39 – Imprimir Planilha com Rodapé em Itálico

Sub RodapeItalico()
    ActiveSheet.PageSetup.CenterFooter = "&IRelatório Confidencial"
End Sub

Descrição: Insere um rodapé central em itálico com o texto “Relatório Confidencial”.

Exemplo 40 – Imprimir Planilha com Fonte Personalizada

Sub FonteCabecalho()
    ActiveSheet.PageSetup.LeftHeader = "&\"Arial,Bold\"Controle de Vendas"
End Sub

Descrição: Define a fonte do cabeçalho esquerdo como Arial em negrito.

Exemplo 41 – Imprimir Planilha com Logotipo

Sub CabecalhoImagem()
    ActiveSheet.PageSetup.LeftHeaderPicture.Filename = "C:\Imagens\logo.png"
End Sub

Descrição: Insere uma imagem (logotipo) no cabeçalho esquerdo da planilha.

Exemplo 42 – Imprimir Planilha com Recuo de Margem

Sub RecuoMargem()
    ActiveSheet.PageSetup.HeaderMargin = Application.InchesToPoints(0.3)
End Sub

Descrição: Define o recuo do cabeçalho para 0,3 polegadas.

Exemplo 43 – Imprimir Planilha com Rodapé Recuado

Sub RecuoRodape()
    ActiveSheet.PageSetup.FooterMargin = Application.InchesToPoints(0.3)
End Sub

Descrição: Define o recuo do rodapé para 0,3 polegadas.

Exemplo 44 – Imprimir Planilha com Títulos em Todas as Páginas

Sub TitulosTodasPaginas()
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$2"
        .PrintTitleColumns = "$A:$B"
    End With
End Sub

Descrição: Repete as duas primeiras linhas e colunas A e B em todas as páginas impressas.

Exemplo 45 – Imprimir Planilha com Bordas Visíveis

Sub BordasVisiveis()
    ActiveSheet.PageSetup.PrintGridlines = True
End Sub

Descrição: Ativa a impressão das linhas de grade da planilha.

Exemplo 46 – Imprimir Planilha Sem Bordas

Sub SemBordas()
    ActiveSheet.PageSetup.PrintGridlines = False
End Sub

Descrição: Desativa a impressão das linhas de grade.

Exemplo 47 – Imprimir Planilha com Comentários

Sub ImprimirComentarios()
    ActiveSheet.PageSetup.PrintComments = xlPrintSheetEnd
End Sub

Descrição: Imprime os comentários da planilha ao final da impressão.

Exemplo 48 – Imprimir Planilha com Comentários Visíveis

Sub ComentariosVisiveis()
    ActiveSheet.PageSetup.PrintComments = xlPrintInPlace
End Sub

Descrição: Imprime os comentários diretamente nas células onde estão.

Exemplo 49 – Imprimir Planilha com Cabeçalho de Arquivo

Sub CabecalhoArquivo()
    ActiveSheet.PageSetup.CenterHeader = ThisWorkbook.FullName
End Sub

Descrição: Insere o caminho completo do arquivo no cabeçalho central.

Exemplo 50 – Imprimir Planilha com Nome do Autor

Sub RodapeAutor()
    ActiveSheet.PageSetup.RightFooter = "Autor: Expedito"
End Sub

Descrição: Insere o nome do autor no rodapé direito.

Exemplo 51 – Imprimir Planilha com Número Total de Páginas

Sub TotalPaginas()
    ActiveSheet.PageSetup.LeftFooter = "Total de páginas: &N"
End Sub

Descrição: Exibe o total de páginas no rodapé esquerdo.

Exemplo 52 – Imprimir Planilha com Página Atual

Sub PaginaAtual()
    ActiveSheet.PageSetup.RightFooter = "Página atual: &P"
End Sub

Descrição: Exibe o número da página atual no rodapé direito.

Exemplo 53 – Imprimir Planilha com Data e Hora

Sub DataHoraRodape()
    ActiveSheet.PageSetup.CenterFooter = Format(Now, "dd/mm/yyyy hh:mm")
End Sub

Descrição: Insere a data e hora atual no rodapé central.

Exemplo 54 – Imprimir Planilha com Zoom Automático

Sub ZoomAutomatico()
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 2
    End With
End Sub

Descrição: Ajusta a planilha para caber em uma página de largura e duas de altura.

Exemplo 55 – Imprimir Planilha com Escala de 50%

Sub Escala50()
    ActiveSheet.PageSetup.Zoom = 50
End Sub

Descrição: Reduz o conteúdo da impressão para 50% do tamanho original.

Exemplo 56 – Imprimir Planilha com Escala de 200%

Sub Escala200()
    ActiveSheet.PageSetup.Zoom = 200
End Sub

Descrição: Aumenta o conteúdo da impressão para 200% do tamanho original.

Exemplo 57 – Imprimir Planilha com Título em Todas as Páginas

Sub TituloTodasPaginas()
    ActiveSheet.PageSetup.CenterHeader = "Relatório de Estoque - Página &P"
End Sub

Descrição: Insere um título com número de página em todas as páginas impressas.

Exemplo 58 – Imprimir Planilha com Texto em Todas as Páginas

Sub TextoTodasPaginas()
    ActiveSheet.PageSetup.LeftFooter = "Confidencial - Não distribuir"
End Sub

Descrição: Insere uma mensagem de confidencialidade em todas as páginas.

Exemplo 59 – Imprimir Planilha com Nome da Empresa

Sub EmpresaRodape()
    ActiveSheet.PageSetup.CenterFooter = "Empresa XYZ Ltda."
End Sub

Descrição: Insere o nome da empresa no rodapé central.

Exemplo 60 – Imprimir Planilha com Código de Controle

Sub CodigoControle()
    ActiveSheet.PageSetup.RightHeader = "

Exemplo 60 – Imprimir Planilha com Código de Controle

Sub CodigoControle()
    ActiveSheet.PageSetup.RightHeader = "Código: 2025-EXP"
End Sub

Descrição: Insere um código de controle no cabeçalho direito da planilha, útil para rastrear documentos impressos.

Exemplo 61 – Imprimir Planilha com Texto em Todas as Páginas

Sub TextoRodapeTodas()
    ActiveSheet.PageSetup.CenterFooter = "Documento gerado automaticamente - Não editar"
End Sub

Descrição: Adiciona uma mensagem de aviso no rodapé central de todas as páginas impressas.

Exemplo 62 – Imprimir Planilha com Rodapé Dinâmico

Sub RodapeDinamico()
    ActiveSheet.PageSetup.LeftFooter = "Usuário: " & _
           Application.UserName & " | " & Format(Now, "dd/mm/yyyy")
End Sub

Descrição: Insere o nome do usuário e a data atual no rodapé esquerdo.

Exemplo 63 – Imprimir Planilha com Cabeçalho Dinâmico

Sub CabecalhoDinamico()
    ActiveSheet.PageSetup.CenterHeader = "Relatório - " & ActiveSheet.Name
End Sub

Descrição: Insere o nome da planilha no cabeçalho central, útil para relatórios múltiplos.

Exemplo 64 – Imprimir Planilha com Título e Subtítulo

Sub TituloSubtitulo()
    ActiveSheet.PageSetup.LeftHeader = "Controle de Estoque"
    ActiveSheet.PageSetup.RightHeader = "Atualizado em: " & Format(Date, "dd/mm/yyyy")
End Sub

Descrição: Insere um título à esquerda e a data de atualização à direita no cabeçalho.

Exemplo 65 – Imprimir Planilha com Rodapé de Responsável

Sub RodapeResponsavel()
    ActiveSheet.PageSetup.CenterFooter = "Responsável: Expedito Marcondes"
End Sub

Descrição: Insere o nome do responsável pelo relatório no rodapé central.

Exemplo 66 – Imprimir Planilha com Cabeçalho de Projeto

Sub CabecalhoProjeto()
    ActiveSheet.PageSetup.CenterHeader = "Projeto: Gestão de Compras"
End Sub

Descrição: Insere o nome do projeto no cabeçalho central.

Exemplo 67 – Imprimir Planilha com Rodapé de Versão

Sub RodapeVersao()
    ActiveSheet.PageSetup.RightFooter = "Versão 1.0"
End Sub

Descrição: Insere o número da versão do documento no rodapé direito.

Exemplo 68 – Imprimir Planilha com Cabeçalho de Cliente

Sub CabecalhoCliente()
    ActiveSheet.PageSetup.LeftHeader = "Cliente: SomaExcel Ltda"
End Sub

Descrição: Insere o nome do cliente no cabeçalho esquerdo.

Exemplo 69 – Imprimir Planilha com Rodapé de Confidencialidade

Sub RodapeConfidencial()
    ActiveSheet.PageSetup.CenterFooter = "Confidencial - Uso Interno"
End Sub

Descrição: Adiciona uma mensagem de confidencialidade no rodapé central.

  Finalizando o Tutorial

Exemplo 70 – Imprimir Planilha com Cabeçalho de Departamento

Sub CabecalhoDepartamento()
    ActiveSheet.PageSetup.RightHeader = "Depto: Financeiro"
End Sub

Descrição: Insere o nome do departamento no cabeçalho direito.

Agradeço profundamente pelo esforço e dedicação de todos vocês. Vamos juntos nessa jornada de aprendizado e evolução!

Prof. Expedito Marcondes Tire-Dúvidas: suportecursovba@gmail.com

Impressão com Excel VBA – Parte 3

Exemplo 71 – Imprimir Planilha com Cabeçalho em Duas Linhas

Sub CabecalhoDuasLinhas()
    ActiveSheet.PageSetup.CenterHeader = _
      "Relatório de Compras" & Chr(10) & "Atualizado Mensalmente"
End Sub

Descrição: Insere um cabeçalho com duas linhas usando quebra de linha (Chr(10)).

Exemplo 72 – Imprimir Planilha com Rodapé em Duas Linhas

Sub RodapeDuasLinhas()
    ActiveSheet.PageSetup.CenterFooter = "Confidencial" & Chr(10) & "Uso restrito"
End Sub

Descrição: Adiciona um rodapé com duas linhas de texto.

Exemplo 73 – Imprimir Planilha com Cabeçalho em Caixa Alta

Sub CabecalhoCaixaAlta()
    ActiveSheet.PageSetup.CenterHeader = UCase("Relatório de Estoque")
End Sub

Descrição: Converte o texto do cabeçalho para letras maiúsculas.

Exemplo 74 – Imprimir Planilha com Rodapé em Caixa Baixa

Sub RodapeCaixaBaixa()
    ActiveSheet.PageSetup.CenterFooter = LCase("Documento Oficial")
End Sub

Descrição: Converte o texto do rodapé para letras minúsculas.

Exemplo 75 – Imprimir Planilha com Cabeçalho Colorido (somente visual)

Sub CabecalhoColorido()
    ActiveSheet.PageSetup.CenterHeader = "&KFF0000Relatório Financeiro"
End Sub

Descrição: Aplica cor vermelha ao texto do cabeçalho (visualização, não afeta impressão física).

Exemplo 76 – Imprimir Planilha com Rodapé Azul

Sub RodapeAzul()
    ActiveSheet.PageSetup.CenterFooter = "&K0000FFControle de Estoque"
End Sub

Descrição: Aplica cor azul ao texto do rodapé (visualização).

Exemplo 77 – Imprimir Planilha com Cabeçalho Subscrito

Sub CabecalhoSubscrito()
    ActiveSheet.PageSetup.CenterHeader = "Relatório de Vendas &LSubscrito"
End Sub

Descrição: Insere texto subscrito no cabeçalho (limitado ao visual).

Exemplo 78 – Imprimir Planilha com Rodapé Sobrescrito

Sub RodapeSobrescrito()
    ActiveSheet.PageSetup.CenterFooter = "Rodapé &LSobrescrito"
End Sub

Descrição: Insere texto sobrescrito no rodapé (limitado ao visual).

Exemplo 79 – Imprimir Planilha com Cabeçalho em Negrito e Itálico

Sub CabecalhoNegritoItalico()
    ActiveSheet.PageSetup.CenterHeader = "&B&IResumo de Compras"
End Sub

Descrição: Aplica negrito e itálico ao cabeçalho.

Exemplo 80 – Imprimir Planilha com Rodapé em Negrito e Itálico

Sub RodapeNegritoItalico()
    ActiveSheet.PageSetup.CenterFooter = "&B&IRelatório Confidencial"
End Sub

Descrição: Aplica negrito e itálico ao rodapé.

Exemplo 81 – Imprimir Planilha com Cabeçalho Alinhado à Esquerda

Sub CabecalhoEsquerda()
    ActiveSheet.PageSetup.LeftHeader = "Controle de Estoque"
End Sub

Descrição: Insere o cabeçalho alinhado à esquerda.

Exemplo 82 – Imprimir Planilha com Cabeçalho Alinhado à Direita

Sub CabecalhoDireita()
    ActiveSheet.PageSetup.RightHeader = "Relatório de Compras"
End Sub

Descrição: Insere o cabeçalho alinhado à direita.

Exemplo 83 – Imprimir Planilha com Rodapé Alinhado à Esquerda

Sub RodapeEsquerda()
    ActiveSheet.PageSetup.LeftFooter = "Página &P"
End Sub

Descrição: Insere o número da página no rodapé esquerdo.

Exemplo 84 – Imprimir Planilha com Rodapé Alinhado à Direita

Sub RodapeDireita()
    ActiveSheet.PageSetup.RightFooter = "Total: &N páginas"
End Sub

Descrição: Insere o total de páginas no rodapé direito.

Exemplo 85 – Imprimir Planilha com Cabeçalho Dinâmico por Nome do Arquivo

Sub CabecalhoArquivo()
    ActiveSheet.PageSetup.CenterHeader = "Arquivo: " & ThisWorkbook.Name
End Sub

Descrição: Insere o nome do arquivo no cabeçalho central.

Exemplo 86 – Imprimir Planilha com Rodapé Dinâmico por Nome da Planilha

Sub RodapePlanilha()
    ActiveSheet.PageSetup.CenterFooter = "Planilha: " & _
           ActiveSheet.Name
End Sub

Descrição: Insere o nome da planilha no rodapé central.

Exemplo 87 – Imprimir Planilha com Cabeçalho de Responsável

Sub CabecalhoResponsavel()
    ActiveSheet.PageSetup.LeftHeader = "Responsável: Prof. Marcondes"
End Sub

Descrição: Insere o nome do responsável no cabeçalho esquerdo.

Exemplo 88 – Imprimir Planilha com Rodapé de Revisão

Sub RodapeRevisao()
    ActiveSheet.PageSetup.RightFooter = "Revisado em: " & Format(Date, "dd/mm/yyyy")
End Sub

Descrição: Insere a data de revisão no rodapé direito.

Exemplo 89 – Imprimir Planilha com Cabeçalho de Projeto

Sub CabecalhoProjeto()
    ActiveSheet.PageSetup.CenterHeader = "Projeto: Gestão de Estoque"
End Sub

Descrição: Insere o nome do projeto no cabeçalho central.

Exemplo 90 – Imprimir Planilha com Rodapé de Versão

Sub RodapeVersao()
    ActiveSheet.PageSetup.LeftFooter = "Versão: 2.1"
End Sub

Descrição: Insere o número da versão no rodapé esquerdo.

Exemplo 91 – Imprimir Planilha com Cabeçalho de Cliente

Sub CabecalhoCliente()
    ActiveSheet.PageSetup.RightHeader = "Cliente: SomaExcel Ltda."
End Sub

Descrição: Insere o nome do cliente no cabeçalho direito.

Exemplo 92 – Imprimir Planilha com Rodapé de Confidencialidade

Sub RodapeConfidencial()
    ActiveSheet.PageSetup.CenterFooter = _
         "Confidencial – Não distribuir"
End Sub

Descrição: Adiciona uma mensagem de confidencialidade no rodapé central.

Exemplo 93 – Imprimir Planilha com Cabeçalho de Departamento

Sub CabecalhoDepartamento()
    ActiveSheet.PageSetup.LeftHeader = "Departamento: Financeiro"
End Sub

Descrição: Insere o nome do departamento no cabeçalho esquerdo.

Exemplo 94 – Imprimir Planilha com Rodapé de Código

Sub RodapeCodigo()
    ActiveSheet.PageSetup.RightFooter = "Código: 2025-EXP"
End Sub

Descrição: Insere um código de controle no rodapé direito.

Exemplo 95 – Imprimir Planilha com Cabeçalho de Período

Sub CabecalhoPeriodo()
    ActiveSheet.PageSetup.CenterHeader = "Período: Jan a Mar 2025"
End Sub

Descrição: Insere o período de referência no cabeçalho central.

Exemplo 96 – Imprimir Planilha com Rodapé de Página e Data

Sub RodapePaginaData()
    ActiveSheet.PageSetup.CenterFooter = "Página &P | " & _
           Format(Date, "dd/mm/yyyy")
End Sub

Descrição: Exibe o número da página e a data atual no rodapé central.

Exemplo 97 – Imprimir Planilha com Cabeçalho de Relatório

Sub CabecalhoRelatorio()
    ActiveSheet.PageSetup.CenterHeader = "Relatório de Compras e Vendas"
End Sub

Descrição: Insere o título do relatório no cabeçalho central.

Exemplo 98 – Imprimir Planilha com Rodapé de Responsável e Hora

Sub RodapeResponsavelHora()
    ActiveSheet.PageSetup.RightFooter = "Prof. Marcondes | " & _
         Format(Time