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
- Como gerar PDF de uma área específica no Excel - setembro 18, 2022
- Planejamento Financeiro – Palestra de Finanças Pessoais 2022 - abril 26, 2022
- Como abrir tela cheia no Excel - abril 18, 2022