VBA를 사용하여 PDF 파일을 열고 인쇄하는 방법

코드를 입력할 Microsoft Office 응용 프로그램에서 VBA 편집기를 엽니다. Microsoft Office 2003 또는 이전 버전의 응용 프로그램에서 "파일" > "도구" > "매크로" > "Visual Basic Editor"를 클릭합니다. Microsoft Office 2007 버전에서 "개발자 탭" > "Visual Basic"을 클릭합니다.

코드를 삽입할 코드 창의 아무 곳이나 클릭합니다.

PDF 파일을 여는 코드를 추가하십시오. 코드는 다음과 같아야 합니다.

Sub OpenPDF() Dim strPDFFileName As String ' 열고자 하는 PDF 파일에 전체 파일 이름을 추가하도록 편집 strPDFFileName = "C:\examplefile.pdf" '다음 함수는 파일이 아직 열려 있지 않은지 확인합니다 If Not FileLocked(strPDFFileName) then 'False를 반환하면 PDF 파일 문서 열기를 계속합니다. strPDFFileName 열기) End If End Sub

이 코드를 복사하여 코드 창에 붙여넣습니다. 변경해야 하는 코드의 유일한 부분은 열려는 PDF 파일의 전체 경로입니다. 따라서 "C:\examplefile.pdf"를 자신의 파일 경로와 이름으로 바꾸십시오.

PDF 파일을 인쇄하는 코드를 추가합니다. 인쇄 코드는 다음과 같습니다.

Sub PrintPDF(strPDFFileName as string) Dim sAdobeReader as String '컴퓨터에 있는 Adobe Reader 또는 Acrobat 응용 프로그램의 전체 경로입니다. sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = 셸(sAdobeReader & "/P" & Chr(34) & sStrPDFFileName & Chr(34), 0) 엔드 서브

이 코드에서 변경해야 하는 유일한 부분은 Adobe Reader, Acrobat 또는 컴퓨터의 모든 PDF 리더에 대한 전체 경로입니다.

트리거를 사용하여 함수를 호출합니다. 이것이 코드가 언제 실행할지 아는 방법입니다. 원하는 트리거를 사용하십시오. 양식, 버튼, 확인란 또는 기타 양식 항목. 예를 들어 버튼의 "클릭" 선언을 사용합니다. 버튼을 클릭하면 PDF 문서가 열리고 인쇄됩니다. 코드는 다음과 같습니다.

Sub CommandButton_Click() '열기 함수를 먼저 호출하여 PDF를 인쇄하기 전에 열 수 있도록 합니다. OpenPDF를 호출합니다. '이제 PDF를 인쇄할 수 있도록 인쇄 함수를 호출합니다. PrintPDF를 호출합니다. End Sub

위 코드의 중간 부분(Sub와 End Sub 사이)을 양식 항목에 복사하고 사용하기로 결정한 트리거를 실행합니다.

필요한 것

• 마이크로소프트 오피스 애플리케이션

• PDF 리더 애플리케이션

팁