회사 인사팀에서 문의가 있어 알려준 다음,

간단한 팁이라 간단히 기록해놓습니다.

엑셀 2007부터 PDF로 저장하는 기능이 생겼습니다.

엑셀 2007 초기 버전은 자체 기능이 아니라 추가 기능을 설치해야 사용할 수 있었던 것 같은 기억이 납니다.

엑셀 2010버전 이상 부터는 기본적으로 사용할 수가 있습니다.

아래 코들 참고하세요..

현재 시트의 인쇄 영역을 PDF로 저장해주는 코드입니다.

Sub abExportAsPDF()

    Dim sFileName As String: sFileName = "C:\ProgramData\abyul\Excel\Exported\abyulExportedPDF1.pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileName, Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

[ 이하 퍼옴 ]

---------------------------------------------------------------

출처 : 엑셀장인님 네이버 카페

       http://cafe.naver.com/xlwhy/7270

---------------------------------------------------------------

현재 시트를 pdf 문서 형식으로 저장해주는 매크로(VBA)입니다

Sub sSavAsPDF()

   x = Environ("commonprogramfiles")

   y = "\Microsoft Shared\OFFICE" & Val(Application.Version)

   If Dir(x & y & "\EXP_PDF.DLL") = "" Then

      MsgBox "PDF add-in 설치되있지 않네요, 아래 링크를 눌러 설치하세요"

      Exit Sub

   End If

   pat = ThisWorkbook.Path

   srfile = "엑셀장인PDF파일"

   ActiveSheet.ExportAsFixedFormat _

         Type:=xlTypePDF, _

         Filename:=pat & "\" & srfile & ".pdf", _

         Quality:=xlQualityStandard, _

         IncludeDocProperties:=True, _

         IgnorePrintAreas:=False, _

         OpenAfterPublish:=False

End Sub

pdf 저장 애드인이 없는 경우에, 우선 아래 링크로 가서 설치하세요

http://www.microsoft.com/ko-kr/download/details.aspx?id=9943

바로 설치하세요.

힘내세요!

---------------------------------------------------------------