Excel VBA 예제 - 시트1부터 시트n까지 특정 범위 복사해서 출력하기

* 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으로.