사용자 정의 보고서 관리자를 만들기
일반 모듈 시트에 VBA 매크로를 추가하여 사용자 지정 인쇄 보고서를 만들 수 있습니다 (매크로는 www.exceltip.com에서 다운로드 할 수 있음).
사용자 정의 인쇄 보고서의 구조 :
{비어 있음} 2. A 열 :이 열에는 1과 3 사이의 숫자가 포함됩니다. 시트에서 인쇄, 범위 이름으로 인쇄 또는 사용자 정의보기에서 인쇄 (권장).
-
B 열 : 시트 이름, 범위 이름 또는 사용자 정의보기 이름을 입력합니다.
-
C 열 : 바닥 글에 인쇄 할 페이지 번호를 입력합니다.
매크로는 시트에서 인쇄하고 페이지 번호, 통합 문서 이름, 경로 주소, 시트 이름, 인쇄 날짜 및 시간을 포함하여 필요한 정보를 바닥 글에 자동으로 추가합니다.
하위 PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer Dim ActiveSh As Worksheet, ChooseShNameView As String Dim ShNameView As String, cell As Range Application.ScreenUpdating = False Set ActiveSh = ActiveSheet Range ( “a2”). Select For each cell in range (범위 ( “a2”), 범위 ( “a2”). End (xlDown))
Select Case cell.Value Case 1 Sheets (ShNameView) .Select Case 2 Application.GoTo Reference : = ShNameView Case 3 ActiveWorkbook.CustomViews (ShNameView) .Show End Select With ActiveSheet.PageSetup. CenterFooter.PageNumber .LeftFooter = ActiveWorkbook.FullName & “”& “& A & T & D”
End With ActiveWindow.SelectedSheets.PrintOut Copies : = 1 다음 i ActiveSh.Select Application.ScreenUpdating = True End Sub 5. 매크로의 For Each 루프는 A2에서 시작하는 A 열의 각 셀에 대해 별도의 인쇄를 발생시킵니다.
-
루프에서 케이스 선택 기법을 사용하여 인쇄 영역을 선택합니다.
-
바닥 글 왼쪽에 인쇄 된 정보 : & 08 = 8 포인트 글꼴, & D = 날짜, & T = 시간.
-
시트에서 매크로를 실행하려면 Alt + F8을 누르고 매크로를 선택한 다음 실행을 클릭합니다.
또는 시트에 버튼을 추가하고 매크로를 첨부합니다.
-
참고 : 보고서를 무제한으로 추가하려면이 기술을 사용하십시오.