Memo/2005-01-28

Excel 関連情報 †

サンプルコード †

ページヘッダのページ番号を「０詰め」して印刷する方法 †

• ページヘッダのページ番号を「０詰め」して印刷する方法

  ' ＜使い方＞
  ' 1. Excel の「Visual Basic Editor」を起動します。
  ' 2. [挿入] - [標準モジュール] を選択します。
  ' 3. 下記のコードを貼り付けます
  ' 4. [実行] - [Sub/ユーザー フォームの実行] で
  '    SpecialPrint() プロシージャを実行します。
  '    → ページヘッダのページ番号が「０詰め」されて印刷されます
  Option Explicit
  
  ' シート内のページ数を算出
  ' ＜参考サイト＞
  ' [XL2002] 印刷されるページの総数を調べる方法
  ' http://support.microsoft.com/kb/408042/ja
  Function GetPageCount(ByRef ws As Worksheet) As Integer
      Dim H_Break As Integer
      Dim V_Break As Integer
      Dim P_Page As Integer
      Dim A_Cell As String
      A_Cell = ws.UsedRange.Address       '最後のセルのアドレスを取得
      If A_Cell = "$A$1" Then
          If IsEmpty(ws.Range(A_Cell).Value) Then
              MsgBox "印刷するデータはありません。"
              Exit Function
          End If
      End If
      H_Break = ws.HPageBreaks.Count    '横の改ページ数取得
      V_Break = ws.VPageBreaks.Count    '縦の改ページ数取得
      If V_Break = 0 Then
          P_Page = H_Break + 1
      Else
        H_Break = H_Break + 1
        V_Break = V_Break + 1
        P_Page = H_Break * V_Break
      End If
      GetPageCount = P_Page
  End Function
  
  ' 特殊印刷処理
  Sub SpecialPrint()
      Dim n As Integer
      Dim nCount As Integer
      Dim wb As Workbook
      Dim ws As Worksheet
      For Each wb In Workbooks
        For Each ws In wb.Worksheets
          ' シートのページ数を取得
          nCount = GetPageCount(ws)
          ' ページ数ぶんループ
          For n = 1 To nCount
              ' 中央ヘッダに「０詰め」した「ページ番号」を表示
              ws.PageSetup.CenterFooter = Format(n, "00")
              ' 指定ページを印刷（nページ目〜nページ目を印刷）
              ws.PrintOut n, n, 1
          Next
        Next
      Next
  End Sub

• はてな
  • http://www.hatena.ne.jp/1106800333

• 参考情報
  • ヘッダー/フッダーを設定する
    • http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI07010013
    • http://www.moug.net/skillup/nksw/nksw05-03.htm?PRINT
  • 印刷時、フッターにブック名とシート数を総ページ数としたページ番号を入れる
    • http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI07010007
  • Excelノート　9-1　印刷
    • http://park11.wakwak.com/~miko/Excel_Note/09-01_insatu.htm
  • [XL2002]ヘッダー、フッターのページ数に加算、減算すると正しくない
    • http://support.microsoft.com/kb/418486/ja
  • [XL2002] 印刷されるページの総数を調べる方法
    • http://support.microsoft.com/kb/408042/ja