Excel VBA 印刷時ページ数の先頭ページ番号（開始番号）を設定する-FirstPageNumber

Excel VBAでワークシートを印刷時のページ数の先頭ページ番号（開始番号）を設定をする方法を記録します。

先頭ページ番号（開始番号）を設定するには「PageSetup」オブジェクトの「FirstPageNumber」プロパティを使います。

< スポンサーリンク >

「FirstPageNumber」プロパティ書き方

開始番号 = 数値 または xlAutomatic（自動）

VBAで先頭ページ番号を設定する例

フッターの中央にページ数が表示されるように設定し、先頭ページ番号を「3」に設定して、印刷プレビューで表示してみます。

Sub test()
    With ActiveSheet.PageSetup
        .CenterFooter = “&P”
        .FirstPageNumber = 3
    End With

    ActiveSheet.PrintPreview
End Sub

フッターの中央にページ数が表示されるように設定し、先頭ページ番号を「自動」に設定して、印刷プレビューで表示してみます。

Sub test()
    With ActiveSheet.PageSetup
        .CenterFooter = “&P”
        .FirstPageNumber = xlAutomatic
    End With

    ActiveSheet.PrintPreview
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします