Visual Basic Como gerar um PDF de todas as abas em um único arquivo.

[Patrick Roberto Almeida]

Pessoal, bom dia.

 

Gostaria da ajuda de vocês para eu poder gerar um PDF de todas as abas do Excel em apenas um único arquivo.

 

Eu consegui o código abaixo, porém ele gera o arquivo PDF aba por aba.

 

Workbooks(1).Worksheets("Plan1").Activate
Sheets("Plan1").ExportAsFixedFormat Type:=xlTypePDF _
      , Filename:=Diretorio & Application.PathSeparator & "Plan1" _
      , Quality:=xlQualityMinimum, OpenAfterPublish:=False



Workbooks(1).Worksheets("Plan2").Activate
Sheets("Plan2").ExportAsFixedFormat Type:=xlTypePDF _
      , Filename:=Diretorio & Application.PathSeparator & "Plan2" _
      , Quality:=xlQualityMinimum, OpenAfterPublish:=False



Workbooks(1).Worksheets("Plan3").Activate
Sheets("Plan3").ExportAsFixedFormat Type:=xlTypePDF _
      , Filename:=Diretorio & Application.PathSeparator & "Plan3" _
      , Quality:=xlQualityMinimum, OpenAfterPublish:=False

 

Poderiam me ajudar.

 

Abraço.

 

 

[Basole]

Experimente

 

ThisWorkbook.Sheets(Array("Plan1", "Plan2", "Plan3")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                  Filename:=Diretorio & Application.PathSeparator & "Plan1_Plan2_Plan3" _
                     , Quality:=xlQualityMinimum, OpenAfterPublish:=False
                     
      ThisWorkbook.Sheets("Plan1").Select