印刷を開始するページ番号を変更する : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサードリンク



Excel VBAでページ番号を設定するには、FirstPageNumberプロパティを使います。
デフォルトは「xlAutomatic」で自動的に付けられます

作成Excel画面

印刷開始ページのテキストボックスにページ番号を入力し、「印刷」ボタンをクリックすると、印刷プレビューが開始します。
総ページ以上の番号でも付けることができます。
印刷ページ番号設定シート

印刷プレビュー画面 「ページ番号/総ページ数」が表示されています。
印刷画面

スポンサードリンク



Excel VBAで実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim ln As Long
    
    ln = Val(TextBox1.Value)
    If ln <= 0 Then
        MsgBox "印刷開始ページを入力してください。"
        Exit Sub
    End If
    
    'ヘッダーを設定
    Worksheets("Sheet1").PageSetup.LeftHeader = "&P/&N"
    'ページ番号をセット
    Worksheets("Sheet1").PageSetup.FirstPageNumber = ln
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview

End Sub

Excel Tipsメニューに戻る

スポンサードリンク





■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved