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
Dim fileName As String fileName = ThisWorkbook.Path & "/hoge.pdf" Worksheets(Array("hoge", "fuga", "piyo")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fileName