[Excel] 날짜별로 인쇄하는 방법

(vb 인쇄 다음 검색)

Excel에서 날짜별로 인쇄되게 하는 방법은 있는지요? 2010.01.19

맨 왼쪽 열에 날짜가 있는 Excel 문서. 어느 날짜는 1 Page 분량이 넘고 어느 날짜는 1 Page 분량이 안 될 때 날짜 별로 그냥 한 Page에 인쇄되게 하는 방법을 가르쳐 주세요

날짜별 인쇄란.. 같은 날짜의 데이터를 한묶음으로 인쇄를 하는데 1월 2일자 데이터가 1+1/2 페이지 정도이고 1월3일자가 1/2페이지 라고 하면 1월 2일자가 1페이지와 2페이지에 인쇄되고 페이지를 넘겨 3페이지에 1월 3일자가 인쇄되는 형식입니다.

 

아래 소스를 Alt+F11을 눌러 vbe창에 들어가서 삽입-모듈을 해서 모듈 소스창에 넣어주세요.

 

Sub 날짜별인쇄()

Dim aRng As Range

Dim t, y As Integer

Set aRng = Range(Range("a2"), Range("a2").End(xlDown).End(xlToRight))

y = 2

For t = 2 To aRng.Rows.Count

    If aRng.Cells(t - 1, 1) <> aRng.Cells(t, 1) Then

        With ActiveSheet.PageSetup

            .PrintTitleRows = "$1:$1"

            .PrintTitleColumns = ""

        End With

        ActiveSheet.PageSetup.PrintArea = "$A$" & y & ":$G$" & t

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

        y = t + 1

    End If

Next

With ActiveSheet.PageSetup

    .PrintTitleRows = "$1:$1"

    .PrintTitleColumns = ""

End With

ActiveSheet.PageSetup.PrintArea = "$A$" & y & ":$G$" & aRng.Rows.Count + 1

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

 

그리고 VBE창을 나와 인쇄하고 싶은 시트에서 ALT+F8을 눌러 해당 매크로를 실행하면 됩니다.