|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
지출결의서는 1장씩 출력해야 합니다.
결의번호 지정하여 한꺼번에 인쇄 할 수 있을까요?
==============[셔틀검객님 글에 대한 답변입니다]==============
첨부화일 참고하세요.
Sub userPrint()
Dim wst As Worksheet
Dim rNo As Range
Dim iStart As Integer, iEnd As Integer
Dim iX As Integer
Application.ScreenUpdating = False
Set wst = ActiveSheet 'Set wst = Worksheets("일계표")
Set rNo = wst.Range("H7")
iStart = wst.Range("K7")
iEnd = wst.Range("L7")
For iX = iStart To iEnd
rNo.Value = iX
wst.Calculate
' 인쇄시
'wst.PrintOut
' 화면인쇄 - 미리보기
wst.PrintOut Preview:=True
Next
rNo.Value = iStart
End Sub
==============[dew님 글에 대한 답변입니다]==============
|
|