Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

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

2015/10/07

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

　

Sub Sample_FirstPageNumber()

Dim w As Worksheet

Set w = ActiveSheet

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

w.PageSetup.CenterHeader = "&P"

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

w.PageSetup.FirstPageNumber = 100

'印刷プレビューを表示

w.PrintPreview

End Sub

　

実行結果

- ブック・シートの操作 FirstPageNumber プロパティ, PageSetup プロパティ, VBA基本, Worksheet オブジェクト, xlAutomatic, エクセルVBA, ブック・シートの操作, 印刷

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 新規ブック作成（Add メソッド）

新規にワークブックを作成する Workbooks コレクションの Add メソッ …

: ブックが互換モードで開いているか確認する（Excel8CompatibilityMode プロパティ）

ブックが互換モードで開いているか確認する Excel8Compatibility …

: 再計算（Calculation, EnableCalculation, Calculate）

ワークブックやシートの再計算通常、Excel では、自動的に再計算が行われる設 …

: ウィンドウの分割（Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウの分割と解除ウィンドウ（ワークシート画面）を分割するには、Split …

: シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ）

シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ） …

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

: 0 を表示するかどうかを設定（DisplayZeros プロパティ）

DisplayZeros プロパティ DisplayZeros プロパティに、T …

: アクティブプリンタを変更（ActivePrinter プロパティ）

ActivePrinter プロパティ ActivePrinter プロパティを …

: ブックのコピーを保存（SaveCopyAs メソッド）

SaveCopyAs メソッド SaveCopyAs メソッドは、現在開いてい …

: ワークシートの追加・削除（Add メソッド・Delete メソッド）

新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …

PREV: 印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）
NEXT: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）