소프트웨어 오피스2013이후버전 엑셀에서도 내맘대로 인쇄하기[매크로] ★
2015.11.29 11:09
오피스 2013버전부터인지는 모르지만, 구버전처럼 인쇄할때 1,3-6,8,10 이런식으로 개별페이지를
지정해서 인쇄하는 기능이 사라졌습니다. 그래서 매크로를 이용해 옛날 인쇄기능을 살려봤습니다.
일단 매크로를 지정하려면 지정한 버튼을 클릭하거나 하는 대상이 필요합니다.
저는 아래 그림과 같이 특정 셀에다가 그림화일을 삽입하겠습니다.
왜냐하면, 기존엑셀시트에 눈에 보이는 뭔가를 추가해서 인쇄를 하면,
불필요한 인쇄버튼이나 모양,글씨 까지 출력되어 버리기 때문에 원래의 인쇄결과에 아무런 영향을 주지 않게 하기 위해 이렇게 합니다.
삽입할 그림화일또한 흰색또는 투명한 png화일을 미리 그림판에서 만들어 놓습니다.
(이정도는 설명안해도 하실 수 있겠죠?? ミ:つÞ)
아래 그림과 같이 투명한 그림화일을 삽입하면 보이지는 않지만, 모양틀만 선택했을때 저런식으로 표시되지요. 참고로 어디 있는지 쉽게 확인할 수 있도록 메모를 삽입합니다. 이 모든것이 인쇄할때는 보이지도 않을 뿐더러 아무영향을 미치지 않기 때문입니다.
방금전에 삽입한 그림을 선택하고 우클릭하면 아래와 같이 매크로 지정이라고 뜹니다.
이걸 클릭합니다.
저 같은 경우에는 미리 만들어 놓은것이 있어서 아래와 같은 목록이 뜨지만,
신경쓰지말고 원하는 이름을 입력후 편집을 누릅니다.
그러면 아래와 같은 매크로편집창이 뜹니다.
아래와 같이 입력합니다.
------------------------------------------
Sub 내맘대로인쇄()
Dim iTotalPage As Integer
Dim sPage() As String
Dim iStartPage As Integer, iEndPage As Integer
Dim sSelectPage As String
Dim sMsg As String
Dim i As Integer
sMsg = "페이지연속은 -로 제각각은 ,로 구분해서 입력하세요!" & vbCr & vbCr & _
"예) 1-3,5,9,11 이런식으로 입력하시면 됩니다!"
sSelectPage = InputBox(sMsg, "내맘대로인쇄 - 만든이:이동수 -")
iTotalPage = ActiveSheet.PageSetup.Pages.Count
If iTotalPage > 0 Then
sPage() = Split(sSelectPage, ",")
For i = 0 To UBound(sPage)
If InStr(1, sPage(i), "-") > 0 Then
iStartPage = CInt(Left(sPage(i), InStr(1, sPage(i), "-") - 1))
iEndPage = CInt(Mid(sPage(i), InStr(1, sPage(i), "-") + 1))
ActiveSheet.PrintOut From:=iStartPage, To:=iEndPage
Else
If iTotalPage >= CInt(sPage(i)) Then
ActiveSheet.PrintOut From:=sPage(i), To:=sPage(i)
End If
End If
Next i
End If
End Sub
위와 같이 입력하고나서 저장버튼을 누르면 끝납니다.
원래 만들어져 있는 문서를 매크로기능을 추가해 사용하려면 다른 이름으로 저장을 할때 .XLSM화일로 다시 저장해주셔야 매크로기능을 이용할 수가 있습니다.
그리고, 참고로 기본적으로 매크로보안 때문에 사용을 할 수 없다고 나올겁니다.
먼저 포스트한 글(https://starbros.blog.me/220426938918)과 같은 방법으로 첨부화일을 이용해
엑셀매크로허용.reg을 파일을 더블클릭해서 레지스트리적용 되도록 합니다.
혹 안되면 파일-옵션-보안센터-매크로설정 에서 아래와 같이 설정해 주시면 됩니다.
제대로 하셨다면, 클릭을 했을때 아래와 같은 창이 뜨게 됩니다. ミ:つÞ
댓글 [4]
번호 | 제목 | 글쓴이 | 조회 | 추천 | 등록일 |
---|---|---|---|---|---|
[공지] | 강좌 작성간 참고해주세요 | gooddew | - | - | - |
3247 | 소프트웨어| 급히 bash 쉘이 필요할 땐 리눅스PE?? [8] | 크림슨 | 3746 | 1 | 04-17 |
3246 | 윈 도 우| 윈도우10 레드스톤RS2 배경삭제 방법 [1] |
|
3747 | 0 | 05-05 |
3245 | 서버 / IT| 동영상포털 광고 간단히스킵하기 ★ StopAd v190207 업데이트 [15] | Star★Bros | 3750 | 10 | 02-07 |
3244 | 윈 도 우| 화면 가로/세로방향및 해상도별로 배경 이미지 지정 [2] | DarknessAn | 3757 | 2 | 09-13 |
3243 | 윈 도 우| 윈도우 10 디스크에서 바로 설치 하기 (윈도우 설치본) [14] | gooddew | 3758 | 15 | 10-27 |
3242 | 기 타| [팁] PDF 파일 변환 사이트 [5] | asklee | 3760 | 1 | 11-07 |
3241 | 윈 도 우| 애드온으로 파폭에서 유튜브 버퍼링없이 빨리보기 | 마니아 | 3764 | 0 | 06-22 |
3240 | 윈 도 우| PE 설치 스크립트 V7.12 [20] | 히이이잌 | 3764 | 41 | 10-30 |
3239 | 소프트웨어| 3. M-Safer(명의도용방지서비스) - 본인 명의로 가입된 통... | 고양이2 | 3765 | 0 | 07-01 |
3238 | 기 타| [팁] PE에서 wim 부팅하는데 필요한 boot.sdi [12] | suk | 3765 | 27 | 04-24 |
3237 | 우분투 13.04 한/영 전환키 복원하기 [5] |
|
3769 | 0 | 09-24 |
3236 | 윈 도 우| IE에서 윈포게시판에 파일첨부가 되지않을때.. [2] |
|
3772 | 1 | 05-20 |
3235 | 기 타| 소소한 배치파일 예제 3가지 [11] | 히이이잌 | 3779 | 7 | 10-24 |
3234 | 윈 도 우| PE 부팅 파티션 만들기 (legacy) [13] | gooddew | 3780 | 15 | 01-05 |
3233 | 윈 도 우| 윈도10에서 명령프롬프트 창의 투명설정이 되지 않을때... [1] | 알파테스터 | 3781 | 1 | 07-21 |
3232 | 윈 도 우| Windows 10 사용자 계정 및 폴더 이동 / 변경 [5] | VenusGirl | 3781 | 5 | 02-05 |
3231 | ElementaryOS에 CMPlayer 설치하기 [5] |
|
3782 | 2 | 10-01 |
3230 | 소프트웨어| 윈도우에 내장되어 있는 백업툴 [11] |
|
3782 | 1 | 05-30 |
3229 | 윈 도 우| [팁] 윈도우 탐색기 자동 새로고침에 대한 간단한 팁. [5] | 메리아 | 3783 | 2 | 05-19 |
3228 | 윈 도 우| 윈도우에 닷넷 3.5 설치하기 [12] | suk | 3784 | 19 | 10-11 |
좋은 강좌 잘 보았습니다.
메크로 지정된 파일만 가능한 방법이군요
차라리 프린트 속성에서 지정하는 방법이 좋지 않나요?