VBA강좌

여러분이 보내주시는 내용으로 꾸며가는 '사용자 제공 자료'입니다. 이번 시간에는 김상명님께서 보내주신 자료입니다. 김상명님이 누군지 궁금하신 분은 아래를 클릭해 보세요.

자료를 공유해 주신 김상면님께 감사의 말씀을 드립니다. 앞으로도 좋은 강좌를 많이 제공해 주시리라 믿습니다. ^^

사용자 제공 자료 : 편지 봉투 인쇄하기

얼마 전 엑셀러님 홈 페이지에서 메일 머지 강의를 보게 되었습니다. 사실 Office에서 메일 머지 기능을 몰라서 다른 것은 MS Office에서 작성하고 메일 머지 기능만 아래아 한글의 기능을 이용하는 경우가 많았습니다. 물론 엑세스의 리포트 기능을 이용하면 되지만 게으른 저에게는 그렇게까지는 아이디어가 생각나지 않더군요.

해서 제가 도움의 글을 하나 올립니다. 바로... "편지 봉투 인쇄하기" 입니다. 뭔가 환상적이고 탁월하고 남들이 따라갈 수 없는 그런 고급 테크닉을 사용했을 것 같은 생각이 언뜻 하시는 분이 계실 겁니다. 하지만 VB나 VBA 혹은 매크로를 조금 아시는 분이라면 별 것도 아니라는 생각이 드실 겁니다. 제가 생각해도 너무나도 단순한 기능을 조합한 것인데 이렇게 유용하게 사용되다니 정말이지 놀랍습니다.

예제 파일 내려받기

1. 편집 용지를 설정합니다. '파일-페이지 설정' 메뉴를 선택하고 '페이지' 탭에서 '가로' 항목을 선택하고 '확인' 버튼을 클릭합니다.

그림과 같이 편지 봉투의 뒷면이 위를 향하게 하고 세로로 길게 세워서 프린터의 용지 투입구 오른쪽에 봉투를 넣습니다. 우표를 붙이는 쪽이 먼저 프린터에 들어가도록 해야 합니다 (HP OO 프린터는 단지 제가 테스트 한 환경일 뿐 저와는 아무런 관계가 없음을 밝힙니다!).

2. 워크시트에 다음과 같이 자료를 입력하고 서식을 설정합니다. 그런 다음 시트의 이름을 'Format'이라고 바꾸어 줍니다. 자료가 입력된 셀의 주소는 다음과 같습니다. 여기서 D2와 G8 셀은 왼쪽 정렬, 나머지 셀은 오른쪽 정렬을 하였습니다.

E1, E2, E3, D2, H7, H8, H9, G8

3. 다른 시트에 아래와 같은 형식으로 주소록을 만듭니다. 이 때 이름이 들어가는 A열은 절대로 빈 간이 있으면 아니되어요! 꼭 명심하세요. 그런 다음 시트의 이름을 'Address'라고 변경합니다.

4. <Alt + F11> 키를 눌러서 VB Editor를 열고 '삽입-모듈' 메뉴를 이용하여 모듈 시트를 삽입합니다. 오른쪽에 있는 빈 공간(코드 창)을 더블 클릭한 다음, '삽입-프로시저' 메뉴를 선택합니다. '프로시저 추가' 대화상자가 나타나면 'PrintArea'라고 입력하고 옵션을 설정한 다음 '확인' 버튼을 클릭합니다.

5. 다음과 같은 프로시저를 작성합니다.

Option Explicit

Public Sub PrintAddress()
    Dim i As Integer

    i = 1
    Do While (Sheets("Address").Cells(i, 1).Value <> "")
        Sheets("Format").Cells(7, 8).Value = Sheets("Address").Cells(i, 3).Text
        Sheets("Format").Cells(8, 7).Value = Sheets("Address").Cells(i, 1).Text
        Sheets("Format").Cells(9, 8).Value = Sheets("Address").Cells(i, 2).Text
        Sheets("Format").PrintPreview
        ' Sheets("Format").PrintOut

        ' 화면이 아닌 프린터로 직접 출력할 경우 PrintOut 메서드를 사용합니다.
        i = i + 1
    Loop
End Sub

6. 저장을 하고 'Format' 시트로 돌아가서 '보기-페이지 나누기 미리 보기' 메뉴를 선택합니다.

7. '보기-도구 모음-양식' 메뉴를 클릭합니다. '양식' 도구 모음에서 '단추' 아이콘을 클릭하고 워크시트의 회색 영역 중 아무 곳에나 버튼을 그린 다음 손을 떼면 '매크로 지정' 대화상자가 나타나는데 앞에서 작성한 'PrintAddress' 프로시저를 선택하고 '확인' 버튼을 클릭합니다.

8. <Esc> 키를 누르거나 워크시트 상의 아무 셀이나 클릭합니다. 이제 추가한 버튼을 클릭하여 테스트 해 보세요. 직접 테스트 해 보시면 아마도 제 위치에 인쇄되지 않는 분들도 계실 겁니다. 이것은 화면의 해상도나 각자의 PC 설정 상태에 따라 조금씩 다르기 때문입니다. 행과 열의 크기를 적당히 조절하여 직접 맞추어 보시기 바랍니다.

여러분만의 노하우를 보내주시면 많은 분들이 공유할 수 있습니다. 파일의 종류나 형태, 분량 등 세밀한 부분에 대해서는 전혀 신경쓰시지 않아도 Exceller가 알아서 편집하므로 걱정 않으셔도 됩니다. 여러분의 많은 참여 기대합니다. ^^

다음 시간에 ...
　