|
For i = srow To lrow
Sheets("운용보고서").Cells(6, 6) = Sheets("전체계좌").Cells(i, 4).Value '고객명
xx = Right(Sheets("전체계좌").Cells(i, 5).Value, 4)
xx = Replace(Sheets("전체계좌").Cells(i, 5).Value, xx, "****")
Sheets("운용보고서").Cells(6, 16) = Mid(xx, 1, 4) & "-" & Mid(xx, 5, 4) & "-" & Mid(xx, 9, 4) '계좌번호"
Sheets("운용보고서").Cells(7, 6) = Sheets("전체계좌").Cells(i, 2).Value '상품명
Sheets("운용보고서").Cells(7, 16) = Sheets("전체계좌").Cells(i, 11).Value '원장잔액
Sheets("운용보고서").Cells(8, 6) = Sheets("전체계좌").Cells(i, 7).Value '신규일
Sheets("운용보고서").PrintOut
Next i
위와 같이 운용보고서를 30번 자동으로 인쇄를 하려고 합니다
테스트를 해 보니 Sheets("운용보고서").PrintOut으로 인해 30번이나 인쇄중 메세지 박스가 깜박깜박 합니다. 인쇄중 메세지 박스를 안뜨개 하는 함수를 알고 싶습니다. 부탁합니다 고수님~~ |
|