![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142053point, 레벨:30/30"){kind=icon}
아별회사 인사팀에서 문의가 있어 알려준 다음,
간단한 팁이라 간단히 기록해놓습니다.
엑셀 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
바로 설치하세요.
힘내세요!
---------------------------------------------------------------
![[레벨:1]](http://abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:301point (78%), 레벨:1/30"){kind=icon}
아주막강한