Neste artigo é demonstrado como gerar um arquivo em pdf em uma área específica no Excel através de macros em códigos VBA (linguagem de programação utilizada pelo Excel).
Essa funcionalidade vai criar um arquivo em pdf da área seleciona no Excel, por isso, vamos ensinar o passo a passo para você deixar seu conteúdo com um aspecto mais profissional.
Habilitando O Guia Desenvolvedor
Para habilitar a guia desenvolvedor e começar a inserir códigos VBA na sua planilha, para isso você terá que seguir os seguintes passos:
Primeiro habilite a guia desenvolvedor clicando em Arquivo->Opções->Personalizar faixa de opções e marque a opção Desenvolvedor, conforme imagem a baixo.

Uma vez habilitada a guia Desenvolvedor, clique no botão Visual Basic para abrir o painel do VBA para inserir os códigos para tirar o print da tela.

É de suma importância adicionar um módulo na sua planilha, caso não tenha essa opção no seu painel, vá na opção inserir e depois clique em módulo, após ter feito isso, vai aparecer um ícone de módulo na parte de baixo dos ícones das planilhas.
Códigos Da Função Print da tela
A função print da tela precisa ser acionada por alguns códigos, esses códigos vou deixar prontos para você somente copiar e colar no seu painel de códigos do VBA.
Segue os códigos para ativar a função print da tela:
Sub Printtela()
‘
‘ Macro1 Macro
‘
‘
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = “”
.PrintTitleColumns = “”
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = “$B$3:$S$43”
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = “”
.CenterHeader = “”
.RightHeader = “”
.LeftFooter = “”
.CenterFooter = “”
.RightFooter = “”
.LeftMargin = Application.InchesToPoints(0.236220472440945)
.RightMargin = Application.InchesToPoints(0.236220472440945)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = “”
.EvenPage.CenterHeader.Text = “”
.EvenPage.RightHeader.Text = “”
.EvenPage.LeftFooter.Text = “”
.EvenPage.CenterFooter.Text = “”
.EvenPage.RightFooter.Text = “”
.FirstPage.LeftHeader.Text = “”
.FirstPage.CenterHeader.Text = “”
.FirstPage.RightHeader.Text = “”
.FirstPage.LeftFooter.Text = “”
.FirstPage.CenterFooter.Text = “”
.FirstPage.RightFooter.Text = “”
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
- Resolvendo Erros de Consultas no Power BI - 7 de fevereiro de 2025
- Como Conectar uma Pasta de Planilhas ao Power BI - 3 de fevereiro de 2025
- Dashboard de Controle de Acidentes SST no Power BI - 31 de janeiro de 2025