액세스 보고서를 PDF VBA를 통한 파일

액세스 솔루션 2025 년 9 월 29 일
지금 공유 :

액세스 보고서를 다른 이름으로 저장할 수있는 VBA 기능을 만드는 방법을 알아보십시오. PDF 버튼 하나만 클릭하면 됩니다. 매번 액세스 리본으로 이동할 필요가 없습니다!

액세스 보고서는 다음과 같이 수동으로 저장할 수 있습니다. PDF 파일. 당신이해야 할 일은 :다른 이름으로 수동 저장 PDF 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에

  1. 보고서를 엽니다.
  2. 액세스 리본으로 이동: 외부 데이터 > PDF 또는 XPS.
  3. 저장할 파일 이름과 폴더 경로를 선택합니다.
  4. 게시를 클릭하면 완료됩니다.

쉽죠? 그러나 보고서를 반복적으로 내보내야 하는 경우(예: 매일) 약간 부담이 될 수 있습니다.

괜찮아요. 더 쉬운 방법이 있습니다. 버튼을 한 번만 클릭하면 보고서를 지정된 폴더로 즉시 내보낼 수 있습니다. 이것은 VBA의 도움으로 수행할 수 있습니다. 아래 단계를 따르십시오.

다운로드

원하는 경우tar기능을 최대한 빨리 사용하려면 다음을 수행 할 수 있습니다.

지금 VBA 코드가 포함 된 샘플 데이터베이스 다운로드

그렇지 않고 DIY를 원한다면 아래 내용을 읽을 수 있습니다.

액세스 보고서를 다른 이름으로 저장하는 VBA 기능을 만드는 단계 PDF 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에

1. 보고서 내에 명령 버튼 추가

이 문서에서는 액세스 보고서가 이미 생성되어 있다고 가정합니다. 디자인 보기에서 열고 보고서 헤더에 버튼을 추가합니다(아래 참조).보고서 내부에 명령 버튼 추가

버튼 이름을 다음으로 변경 cmd_exportPDF. 이것을하기 위해:

  1. 디자인보기에서 버튼을 선택합니다.
  2. 속성 시트를 엽니다(ALT + Enter).
  3. 기타 탭 > 이름으로 이동합니다.
  4. 이름 값을 cmd_export로 변경PDF.

2. 명령 버튼에 대한 코드 추가

코드를 추가하려면 먼저 버튼에 On Click 이벤트를 추가해야 합니다.

  1. 명령 단추를 선택한 상태에서 속성 시트로 다시 이동합니다.
  2. 이벤트 탭을 클릭합니다.
  3. On Click을 찾아 선택합니다.
  4. Choose Builder 메뉴가 나타나면 Code Builder를 선택하고 OK를 클릭합니다.
  5. 그러면 VBA 편집기가 열립니다.

이제 아래 코드를 복사합니다.

파일 이름 및 fldrPath의 값을 업데이트하는 것을 잊지 마십시오. 댓글 섹션에 각각 별표(*)가 있습니다.

Function FileExist(FileFullPath As String) As Boolean
  Dim value As Boolean
  value = False
  If Dir(FileFullPath) <> "" Then
    value = True
  End If
  FileExist = value
End Function

Private Sub cmd_exportPDF_Click()
 
  Dim fileName As String, fldrPath As String, filePath As String
  Dim answer As Integer
 
  fileName = "Member Contact Details" 'filename for PDF file*
  fldrPath = "C:\Users\Jessica\Desktop\PDF Exports" 'folder path where pdf file will be saved *
 
  filePath = fldrPath & "\" & fileName & ".pdf"
 
  'check if file already exists
  If FileExist(filePath) Then
    answer = MsgBox(prompt:="PDF file already exists: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
      "Would you like to replace existing file?", buttons:=vbYesNo, Title:="Existing PDF File")
    If answer = vbNo Then Exit Sub
  End If
 
  On Error GoTo invalidFolderPath
  DoCmd.OutputTo objecttype:=acOutputReport, objectName:=Me.Name, outputformat:=acFormatPDF, outputFile:=filePath
 
  MsgBox prompt:="PDF File exported to: " & vbNewLine & filePath, buttons:=vbInformation, Title:="Report Exported as PDF"
  Exit Sub
 
  invalidFolderPath:
  MsgBox prompt:="Error: Invalid folder path. Please update code.", buttons:=vbCritical
 
End Sub

이러한 코드 줄은 다음을 수행합니다.

  1. 먼저 확인하십시오 PDF 동일한 파일 이름을 가진 파일이 지정된 폴더에 이미 존재합니다. 그렇다면 새 것으로 교체할 것인지 묻는 메시지가 나타납니다.

예를 선택하면 보고서가 내보내기 프로세스를 계속합니다. 그렇지 않으면 파일이 다음으로 변환되지 않습니다. PDF.

  1. 존재하지 않는 폴더 경로를 입력한 경우 코드에 지정된 폴더 경로를 업데이트하라는 메시지가 나타납니다. 이 문제가 수정될 때까지 내보내기 프로세스가 계속되지 않습니다.
  2. 보고서를 성공적으로 내보내면 보고서가 어디에 있는지 알려주는 프롬프트가 나타납니다. PDF 파일이 저장되었습니다.

그게 다야! 이제 버튼을 테스트할 시간입니다.

Access 데이터베이스를 열 수 없습니다.

most 모든 Access 사용자에게 일어날 수 있는 무서운 일은 어느 날 깨어나 데이터베이스를 더 이상 열 수 없다는 것을 깨닫는 것입니다. 손상되었습니다. 더 나쁜 것은 데이터를 백업할 수 없다는 사실을 깨닫는 것입니다. 괜찮아요. DataNumen Inc.는 할 수 있는 소프트웨어를 만들었습니다. 액세스 수정 데이터 베이스. 데이터베이스는 여전히 다시 살아날 수 있습니다.

저자 소개 :

Jayme Stack은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL 복구 그리고 엑셀 복구 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM

지금 공유 :

댓글이 닫혀있다.