シートをPDF出力する

With ActiveSheet.PageSetup 
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1 
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "/hoge.pdf"

シートが１ページに収まるように設定した上で出力します。

複数シートをPDF出力する

Worksheets(Array("hoge", "fuga", "piyo")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "/hoge.pdf"

アクティブなシートを出力するのですが、選択した状態であればそれら複数のシートがアクティブとみなされて１つのPDFに出力することができます。