|
|
|
|
|
|
댓글 600자에 걸려서 답변글로 기록합니다.
자체해결 했습니다.
저와 같이 필요하신 분을 위해서 기록합니다.
매크로함수는 runcode 를 사용했습니다.
아래는 매크로에서 사용한 모듈 소스 입니다.
----------------------------
Option Compare Database
Public Function aprint()
'??? ????? ???
DoCmd.PrintOut
End Function
Public Function aprints()
On Error GoTo Err_????
'?μ? ????a ???
DoCmd.RunCommand acCmdPrint
Exit_????:
Exit Function
Err_????:
'?????? ???? ?????? ????ο????? ?????? ?????? - ?????? ?????????? ??????? ???o????
'MsgBox Err.Description
Resume Exit_????
End Function
Public Function aprintys()
On Error GoTo Err_????
'?????? ????a ???
DoCmd.RunCommand acCmdPageSetup
Exit_????:
Exit Function
Err_????:
'?????? ???? ?????? ????ο????? ?????? ?????? - ?????? ?????????? ??????? ???o????
'MsgBox Err.Description
Resume Exit_????
End Function
Public Function apdfs()
On Error GoTo Err_????
'?μ? ????a ??? ??????? ???? ????? ??????? ????????
MsgBox "??????? ?μ?a???? ??????? pdf?? ??????ð? " & Chr(13) & Chr(13) & "????? ?????ø? ????.", vbInformation, " ???"
'?μ? ????a ???
DoCmd.RunCommand acCmdPrint
Exit_????:
Exit Function
Err_????:
'?????? ???? ?????? ????ο????? ?????? ?????? - ?????? ?????????? ??????? ???o????
'MsgBox Err.Description
Resume Exit_????
End Function
Public Function aclose()
'????? ???
DoCmd.Close
End Function
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2020-03-22(22:55)
최종수정일 : 2020-03-22(23:01) |
|
|
|
|