|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(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
|
|