シートをPDF出力する

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

複数シートをPDF出力する

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