본문으로 바로가기

* Print이용하기

시트1부터 시트n까지 특정 범위 복사해서 출력하는 것을 해보자.


1월 14일 해외에서 근무하시는 분으로부터 아래와 같은 질문을 받았다.

"

쉬트 1번, 2번에 데이터들을 쉬트 3번으로 차례로 불러와서 인쇄를 한장한장 하려고 하면 어덯게 해야할지 고민입니다.

예를 들어 쉬트 1번의 데이터가 
1 강아지
2 멍멍이
3 고양이
4 야옹이

이고 쉬트 2번의 데이터가 

1 철이
2 순이
3 영희
4 명희
  
이라면 쉬트3번에

"(쉬트1)"는 "(쉬트2)" 의 친구 입니다.

를 1번부터 차례대로 4장을 인쇄할수 있을까요 ?

"

라고.


 해결 방법을 알려 드렸다.

"
방법은 아래와 같습니다.

range를 이용해서 선택해서 복사 한 후

print 메소드를 이용해 출력하면 됩니다.

여러 시트를 하셔야 하므로 for next로 묶어주면 됩니다.
"
라고.



Sub 인쇄()


For i = 1 To 2
    '값 복사
    Sheets("시트3").Range("a2:a5").Value = Sheets(i).Range("a2:a5").Value
    
    '프린트
    Range("a1:D5").PrintOut
Next


End Sub


Range로 선택을 한 후 '.PrintOut'으로 출력하면 된다.

그러면 프린터에서 줄줄줄 나올 것이다.




질문은 덧글이나 oceanfog1@gmail.com으로.





댓글을 달아 주세요