Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por CSoares 01 Jun 2020 às 12:10
Membro Novato
Mensagens: 45
Reputação: 4
#55436
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
Apenas usuários registrados podem ver ou baixar anexos.
Por babdallas 01 Jun 2020 às 13:28
Excel Expert
Mensagens: 2892
Reputação: 1256
#55440
Tente algo assim:

Código: Selecionar todosFolha1.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
Por CSoares 01 Jun 2020 às 17:16
Membro Novato
Mensagens: 45
Reputação: 4
#55453
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 todosDim 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