印刷の先頭のページ番号を設定（PageSetup.FirstPageNumber プロパティ）

サイト管理人

9年前

PageSetup.FirstPageNumber プロパティ

PageSetup.FirstPageNumber プロパティで、印刷するシートの先頭ページのページ番号を設定することができます。値の取得および設定が可能です。長整数型（Long）の値を使用します。

【書式】

＜取得＞
object.PageSetup.FirstPageNumber

＜設定＞
object.PageSetup.FirstPageNumber = long

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
long ・・・印刷時、先頭ページのページ番号を長整数型（Long）の値を指定します。定数 xlAutomatic を指定すると、自動的に先頭ページの番号が選択されます。規定値は、xlAutomatic です。

PageSetup.FirstPageNumber プロパティ使用例

サンプルVBAソース

　
Sub Sample_FirstPageNumber()

    Dim w As Worksheet
    Set w = ActiveSheet

    'ヘッダー中央にページ番号を表示
    w.PageSetup.CenterHeader = "&P"

    '先頭ページのページ番号を「100」に指定
    w.PageSetup.FirstPageNumber = 100

    '印刷プレビューを表示
    w.PrintPreview

End Sub

Sub Sample_FirstPageNumber()

Dim w As Worksheet

Set w = ActiveSheet

'ヘッダー中央にページ番号を表示

w.PageSetup.CenterHeader = "&P"

'先頭ページのページ番号を「100」に指定

w.PageSetup.FirstPageNumber = 100

'印刷プレビューを表示

w.PrintPreview

End Sub

PageSetup.FirstPageNumber プロパティ

引数・戻り値

PageSetup.FirstPageNumber プロパティ 使用例

サンプルVBAソース

実行結果

PageSetup.FirstPageNumber プロパティ使用例