Página 1 de 1

Gerar um PDF de algumas colunas de uma folha

Enviado: 01 Jun 2020 às 12:10
por CSoares
Boa tarde

Tenho uma folha de excel, com diversas colunas e linhas de texto, estilo base de dados.
Gostaria de criar um ficheiro PDF de apenas algumas colunas que fazem parte dessa base de dados.
Consigo criar um PDF de "todas" as colunas a partir de uma determinada célula, mas não consigo escolher que colunas desejo utilizar.
Em anexo envio um exemplo daquilo que consegui obter.

O que pretendo?
Pretendo um PDF com as colunas A,B,C e E

Obrigado pela ajuda

Re: Gerar um PDF de algumas colunas de uma folha

Enviado: 01 Jun 2020 às 13:28
por babdallas
Tente algo assim:
Código: Selecionar todos
Folha1.Columns("D").Hidden = True
    Folha1.Range("A3:E20").ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:="C:\Users\BRUNO\OneDrive\?rea de Trabalho\Teste.pdf", _
                IgnorePrintAreas:=True, _
                OpenAfterPublish:=True
    Folha1.Columns("D").Hidden = False

Gerar um PDF de algumas colunas de uma folha

Enviado: 01 Jun 2020 às 17:16
por CSoares
Foi perfeito, funcionou de forma impecável, estava-me a escapar a forma e pensamento de esconder colunas.

Coloco aqui o meu código misturado com o seu, pois poderá ser útil a mais alguém
Código: Selecionar todos
Dim linhas As Long
linhas = Folha2.Range("C1", Folha2.Range("C1").End(xlDown)).Rows.Count

Folha2.Columns("A:B").Hidden = True
Folha2.Columns("G:R").Hidden = True
Folha2.Columns("T:XX").Hidden = True

Folha2.Range("C3:T3").Select
Range(Selection, Selection.End(xlDown)).Select

With Folha2.PageSetup
    .Zoom = False
    .Orientation = xlPortrait
    .FitToPagesWide = 1
End With
    
localnome = ThisWorkbook.Path & "\AGENDA PDF" & "_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_" & Hour(Now) & "h" & Minute(Now) & "m" & Second(Time) & "s"
    
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=localnome, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True

Folha2.Columns("A:B").Hidden = False
Folha2.Columns("G:R").Hidden = False
Folha2.Columns("T:XX").Hidden = False