スキルアップ・問題解決なら、モーグにおまかせ！

印刷するシートの先頭ページが使用する番号を設定します。

●詳細●
定数xlAutomaticを指定した場合、自動的に先頭ページの番号が選択されます。既定値はxlAutomaticです。

  構文  Object.FirstPageNumber     設定/取得

  設定項目              内容
  Object                PageSetupオブジェクト [省略不可]

次のサンプル1は先頭のページ番号を101から始まるように設定します。

●サンプル1●
Sub FirstPageNumberSamp1()

    With ActiveSheet.PageSetup
        .FirstPageNumber = 101   '---先頭ページ番号を101に設定する
    End With

End Sub

●ポイント●
ヘッダー/フッダーの書式コードを用いて、ページ設定を表す書式コードに<先頭のページ-1>を加算することでも、同様の設定が可能です。
次のサンプル2は、FirstPageNumberプロパティを使わずに、書式コードを用いてフッターに表示するページ数の先頭番号を101ページに設定しています。

●サンプル2●
Sub FirstPageNumberSamp2()

    With ActiveSheet.PageSetup
        .CenterFooter = "&P+100/&N+100"  '---ページ数/総ページ数に値を加算
    End With

End Sub