안녕하세요. 고객사와 함께 성장하는 비즈니스 파트너 링크허브 입니다.
링크허브에서 제공하는 VBA 팩스 API 서비스를 연동하여 Microsoft Accesss 보고서(report) 폼을 팩스로 전송 방법을 안내해 드리도록 하겠습니다. 보고서 폼을 팩스 API를 사용하여 전송하기 위해서는 ‘PDF 변환’ 과 ‘팩스 전송요청’ 과정이 필요합니다. 자세한 사항은 다음의 설명을 참조하시기 바랍니다.
Microsoft Access 버전별 참고사항
| Version | PDF 변환 | 비고 |
|---|---|---|
| Access 2002, 2003 | X | PDF 변환을 지원하지 않음, 팩스전송 불가 |
| Access 2007 | ○ | Window XP – Windows Service Pack 3 설치 필요 |
| Access 2010 | ○ | PDF 변환 라이브러리 자체 지원 |
보고서 폼 팩스전송 예제소스
다음은 Access 2010 환경에서 보고서 폼을 전송하는 예제소스입니다. ‘PDF 파일변환’과 ‘팩스 전송요청’ 두가지 과정으로 이루어져 있습니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
//VBA 참조에서 Microsoft scripting runtime 참조 필요 Private Sub btnReportToPDF_Click() Dim Myfilter As String Dim MyFolder As String Dim MyFilename As String Dim FilePaths As New Collection Dim Filepath As String Dim receivers As New Collection Dim receiver As New PBReceiver Dim txtCorpNum As String Dim reserveDT As String Dim txtUserId As String Dim SenderNum As String MyFolder = CurrentProject.Path // 변환된 PDF 파일을 저장할 경로 Myfilter = "" MyFilename = "Report1.pdf" // 변환할 파일 제목 // PDF 변환 함수 호출 DoCmd.OutputTo acOutputReport, "reportExample", acFormatPDF, MyPath & MyFilename, False DoCmd.Close acReport, "reportExample" txtCorpNum = "1234567890" // 팝빌회원 사업자번호 SenderNum = "07043042991" // 발신번호 // 수신정보 receiver.receiverNum = "010111222" // 수신 팩스번호 receiver.receiverName = "팩스테스트" // 수신자명 receivers.Add receiver Filepath = MyPath & MyFilename // PDF파일 경로 FilePaths.Add (Filepath) reserveDT = "" // 예약전송시간 txtuserid = "testkorea" // 회원 아이디 Dim ReceiptNum As String // 팩스전송 API 호출 ReceiptNum = FaxService.SendFAX(txtCorpNum, SenderNum, receivers, FilePaths, reserveDT, txtUserid) If ReceiptNum = "" Then MsgBox ("[" + CStr(FaxService.LastErrCode) + "] " + FaxService.LastErrMessage) Exit Sub End If MsgBox "접수번호 : " + ReceiptNum End Sub |
지금까지 링크허브에서 제공하는 팩스 API를 사용하여 Access의 보고서 폼을 전송하는 방법에 대해 안내해 드렸습니다. 팩스 전송에 대한 자세한 사항은 [팩스전송 API 프로세스] 참조하시기 바랍니다.
고객님들의 편의를 위하여 이메일, 전화 등 다양한 채널을 열어놓고 있으니 언제든지 연락주시기 바랍니다.
링크허브 개발팀 정요한 과장 / T.1600-9854 / D. 070-4304-2991/ E. code@linkhub.co.kr