Este fórum está sendo desativado

[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

[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

[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