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

 dew (dewdrop)

추천:  2
파일:     인쇄_Ans.xlsm (1687.2KB) 조회:  1560
제목:   [RE]메크로 인쇄 수입이 없는 날 인쇄 안하기 ?
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>
메크로 인쇄를 사용했습니다.
3월1일~5일에 수입이 있으면 인쇄
6일에 수입이 없으면 다음 날짜로 넘어가고
7일에 수입이 있으니까 인쇄 
 어떻게 하면 될까요?
==============[장순혁님 글에 대한 답변입니다]==============

첨부화일 참고하세요...

Sub userPrint()
    Dim wst As Worksheet
    Dim rDay As Range, rSum As Range
    Dim iYear As Integer, iMonth As Integer, iDay As Integer
    Dim iEndDay As Integer
    Dim iX As Integer
    
    Set wst = ActiveSheet 
    iYear = wst.Range("C2")
    iMonth = wst.Range("D2")
    Set rDay = wst.Range("E2")
    iDay = rDay
    
    Set rSum = wst.Range(wst.PageSetup.PrintArea)
    Set rSum = rSum.Cells(rSum.Cells.Count)
    
    iEndDay = Day(DateSerial(iYear, iMonth + 1, 0))
    
    For iX = rDay To iEndDay
        rDay = iX
        
        wst.Calculate
        If rSum <> 0 Then wst.PrintOut
    Next
    rDay = iDay
End Sub
 
[불량 게시물 신고]  
장순혁너무너무 감사합니다.~12-11 (09:13)
삭제 ■신고
        
  

작성일 : 2019-12-10(17:20)
최종수정일 : 2019-12-10(17:20)
 


 ◎ 관련글

  제 목   작성자   날짜
메크로 인쇄 수입이 없는 날 인쇄 안하기 ? 장순혁 2019-12-10
[RE]메크로 인쇄 수입이 없는 날 인쇄 안하기 ? dew 2019-12-10