Sub outputPDF()



Dim fileName As String

fileName = ThisWorkbook.Path & "○○.pdf"←円マーク

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName