Wendy는 워크 시트 인쇄물의 머리글에 페이지 번호를 포함하려고하지만 1 페이지의 21A 페이지, 2 페이지의 21B 페이지, 3 페이지의 21C 페이지 등의 페이지 번호를 포함하려고합니다. 계획.

이 문제를 해결할 수있는 몇 가지 방법이 있으며, 모두 매크로 사용을 포함합니다. 실제로 현재 통합 문서의 모든 워크 시트를 인쇄하고 싶은데 해당 워크 시트 중 어느 것도 길이가 한 페이지를 넘지 않는 경우 (인쇄시) 다음 매크로는 요청 된대로 헤더의 중앙 섹션을 설정합니다.

Sub PageNums1()

Dim sheet As Worksheet     Dim J As Integer

J = 1     On Error Resume Next     For Each sheet In Worksheets         Sheets(J).PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

J = J + 1     Next End Sub

매크로는 실제로 아무것도 인쇄하지 않습니다. 헤더 정보를 변경하기 만하면됩니다. 현재 워크 시트 만 인쇄하고 해당 워크 시트에 인쇄물에 여러 페이지가 필요한 경우 다음이 잘 작동합니다.

Sub PageNums2()

Dim X As Integer     Dim Y As Integer     Dim Z As Integer

Z = 1     For X = 1 To ActiveSheet.HPageBreaks.Count + 1         For Y = 1 To ActiveSheet.VPageBreaks.Count + 1             ActiveSheet.PageSetup.CenterHeader = _               "Page 21" & Chr$(64 + Z)

Worksheets.PrintOut Z, Z             Z = Z + 1         Next Y     Next X End Sub

이 매크로는 인쇄물에서 가로 (HPageBreaks) 및 세로 (VPageBreaks) 페이지 나누기의 위치를 ​​기반으로 페이지를 계산합니다.

다음과 같은 방식으로 Pages 컬렉션 작업을 시도 할 수도 있습니다.

Sub PageNums3()

Dim J As Integer

For J = 1 To ActiveSheet.PageSetup.Pages.Count         ActiveSheet.PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

Worksheets.PrintOut J, J     Next J End Sub

선택한 접근 방식에 관계없이 인쇄물에 26 페이지 이상이 필요한 경우 문제가 발생합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (12548)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.