|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):2019
* 아래줄에 질문을 작성하세요 >>
아래와 같이 조건에 맞는 내용을 누적하고
strABCD = strABCD & " / " & intRecNo & " : " & strNM
msgbox strABCD을 이용해서 모니터로 내용을 점검하고 있는데
혹시 Docmd.PrintOut명령을 이용해서 프린팅이 가능한지요.
내용을 출력해서 체크하면서 테이블을 점검하려 합니다.
구글링 하니까
보고서를 만든 다음 출력하는 것 같던데
VBA로 변수 값을 보고서로 만드는 것도 모르겠고...요.
==============[강오리님 글에 대한 답변입니다]==============
다른 깔끔한 방법이 있지 싶은데 찾지를 못하겠네요.
임시로 텍스트 파일을 만든후 인쇄하는 방법 입니다.
※인쇄된 글꼴은 현재 메모장에 설정된 글꼴 및 폰트사이즈에 기준합니다.
Dim strABCD, intRecNo, strNM
strABCD = "strABCD"
intRecNo = 1
strNM = "test " & Now()
'임시 저장할 텍스트 파일
Dim filePath
filePath = CurrentProject.Path & "\temp.txt"
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile(filePath)
'파일쓰기
oFile.WriteLine strABCD & " / " & intRecNo & " : " & strNM
oFile.Close
Set fso = Nothing
Set oFile = Nothing
'메모장을이용하여 인쇄
Shell ("notepad.exe /p " & filePath)
'파일삭제
Kill filePath |
|