Excel Excel Macro para Salvar em PDF de diferentes planilhas e abas

[Aline Ramos Borges]

Boa tarde, Pessoal,

Preciso de ajuda com a macro abaixo, preciso adaptá-la para quando as planilhas e as abas são de arquivos diferentes para que ele salve o arquivo segundo uma determinada célula (Ex: C2 = 2020 09 25 - XXX.pdf).

 

 

Sub SalvaIntervalosEmPDF()

Dim LocalPDF As String

 

  LocalPDF = "caminho na rede.pdf"

 

  Sheets("X").Activate

  ActiveSheet.Range("B2:AJ84").Select

  Sheets("Y").Activate

  ActiveSheet.Range("B2:K67").Select

  Sheets("Z").Activate

  ActiveSheet.Range("B2:G82").Select

  Sheets("A").Activate

  ActiveSheet.Range("B2:H27").Select

  Sheets("B").Activate

  ActiveSheet.Range("B2:H27").Select

  Sheets(Array("X", "Y", "Z", "A", "B")).Select

  

  Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LocalPDF, Quality:=xlQualityStandard, _

   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

  

End Sub

 

 

[Muca Costa]

A macro abaixo salva com os nomes das "Abas". Você pode ajustar para sua planilha...

Sub Gerar_PDF()
Dim sht     As Worksheet
'Percorre todas as planilhas do arquivo
For Each sht In ThisWorkbook.Sheets
    
    sht.PageSetup.PrintTitleRows = "$1:$1" 'Repete a linha de cabeçalho em cada página
    'Gera o PDF
    sht.ExportAsFixedFormat Type:=xlTypePDF, _
                            Filename:=ThisWorkbook.Path & "\" & sht.Name, _
                            Quality:=xlQualityStandard, _
                            IncludeDocProperties:=True, _
                            IgnorePrintAreas:=True, _
                            OpenAfterPublish:=False
    
    sht.PageSetup.PrintTitleRows = "" 'Retorna ao valor padrão
    
Next sht

MsgBox "Arquivos gerados com sucesso!!!", vbInformation, "Geração de arquivos PDF"

End Sub