|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(2000)
2. 윈도우즈의 버전(win98)
3. CPU (486,PentiumIV)
4. RAM (512MB)
* 아래줄에 질문을 작성하세요 >>
With shtData
Do While .Cells(3 + i, 1) <> " "
shtPrint.Range("e3") = .Cells(3 + i, 2) '제 호
shtPrint.Range("e7") = .Cells(3 + i, 3) '부서
shtPrint.Range("aa10") = .Cells(3 + i, 4) '지역
shtPrint.Range("Af10") = .Cells(3 + i, 5) '반
shtPrint.Range("y12") = .Cells(3 + i, 6) '이름
shtPrint.Range("Ad12") = .Cells(3 + i, 6) '이름
shtPrint.Range("Ai12") = .Cells(3 + i, 6) '이름
shtPrint.Range("k24") = .Cells(3 + i, 7) '년
shtPrint.Range("r24") = .Cells(3 + i, 7) '월
shtPrint.Range("x24") = .Cells(3 + i, 7) '일
shtPrint.PrintOut
i = i + 1
Loop
End With
Application.ScreenUpdating = True
End Sub
에서 데이터가 3-4개정도 있어서 프린트를 그만 해야 되는데 프린트를 끝내는 언어를 모르겠는데요 한수 가르쳐 주세요 |
|