即効テクニック |
印刷するシートの先頭ページが使用する番号を設定します。 ●詳細● 定数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