Como gerar PDF de uma área específica no Excel

Deixe um comentário / Excel / Por

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.

Guia desenvolvedor habilitada – Versão do Excel 2019

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.

Painel VBA (visual basic for Applications

É 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

Últimos posts por Miguel Rodrigues (exibir todos)