Sub PDF저장()

    Dim 경로 As String
    Dim 파일 As String

    경로 = ThisWorkbook.Path & "\PDF\"
    파일 = Range("B7").Value & "-" & Format(Date, "yymmdd") & ".pdf"

    ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=경로 & 파일, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False

End Sub