안녕하세요.

비즈폼에서 만든 서식인거 같은데요..

그리고 개인 정보가 입력된 것 같아 첨부파일은 관리자가 삭제했습니다.

전체출력을 한 페이지에 2장씩 인쇄하시려면

다음과 같이 코드를 입력하시면 됩니다.

    Dim intSawon As Integer

    intSawon = Application.WorksheetFunction.CountA(Range("급여대장_사원범위"))
   
    For i = 1 To intSawon Step 2
   
        Worksheets("급여명세서").Range("L5") = Range("급여대장_사원범위").Cells(i)
        Worksheets("급여명세서").Range("L23") = Range("급여대장_사원범위").Cells(i + 1)
       
        ActiveSheet.PrintOut
       
    Next i

참고로 "급여대장_사원범위"는 다음과 같이 이름을 정의하였습니다.

=OFFSET(급여대장!$B$5,0,0,COUNTA(급여대장!$B:$B)-1,1)

그럼 잘 되시길요...