나눔터  
  HOME > 나눔터 > 묻고답하기 > 액세스
액세스
액세스에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 황동준 (bogri2000)

추천:  2
파일:     조회:  1374
제목:   [RE]변수 값(문자열)을 프린트 하는방법..
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 액세스 버전(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
 
[불량 게시물 신고]  
강오리해결되었습니다.
액세스를 독학으로 배워서
VBA에서 막히면 많이 헤맵니다.
이번에도 문제 해결에 도움주셔서 감사합니다.
01-22 (15:27)
삭제 ■신고
        
  

작성일 : 2021-01-22(14:39)
최종수정일 : 2021-01-30(09:55)
 


 ◎ 관련글

  제 목   작성자   날짜
변수 값(문자열)을 프린트 하는방법.. 알려주십시요. 강오리 2021-01-22
[RE]변수 값(문자열)을 프린트 하는방법.. 황동준 2021-01-22