엑셀 자동 인쇄 매크로

엑셀 -> 개발도구 -> VIsualBasic 을 실행하여

매크로를 하나 만들어야 합니다.

 

그리고 아래와 같이 자신의 셀에 맞도록 바꿔주면 됩니다.

 

Option Explicit

Sub 인쇄()

Dim strArea As String
Dim i As Long, pchk As Long, kun As Long
kun = 0

 

Sheets("Sheet1").Select
Range("o7") = 2  <-데이터가 시작되는 행
 

For i = Range("o7") To Range("o8")  <--o7 : 시작행  o8: 마지막행
    
 Range("A1:J36").PrintOut  <--프린터할 영역
      
           kun = kun + 1
  
Next i

 

MsgBox kun + 1 & "  건 인쇄 작업 완료"
End Sub 

 

즉 Sheet1에 프린터할 영역이 있고 프린터 영역 밖에 첫행과 마지막 행을 아래와 같이 표시해 줍니다.

 

여기서 첫행,마지막행의 정보는 데이터가 있는 시트를 참조하여 ROW, ROWS 함수를 사용해 구하면 됩니다.

 

그럼 이제 프린터 영역에서 vlookup함수를 이용해 첫행이 2일 경우 프린터 영역안의 데이터들을 그에 맞는 데이터로

가져오도록 하면 끝입니다.

매크로에서 for문을 사용하여 1씩 증가됨으로 마지막행 646행까지 돌면서 인쇄를 할수 있습니다.