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

印刷のタイトル行、タイトル列を設定（PrintTitleRows,PrintTitleColumns）

2015/10/06

PageSetup.PrintTitleRows プロパティ

PageSetup.PrintTitleRows プロパティで、タイトル行を設定すると、２ページ目移行にも設定したタイトル行が印刷されます。値の取得および設定が可能です。設定には文字列型（String）の値を使用します。

【書式】

＜取得＞
object.PageSetup.PrintTitleRows

＜設定＞
object.PageSetup.PrintTitleRows = string

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
string ・・・タイトル行を A1 形式の文字列で指定します。セル、セル範囲を指定した場合、該当するセルが含む行全体が選択されます。また、False または、空文字(“”) を指定するとタイトル行の設定は解除されます。

PageSetup.PrintTitleColumns プロパティ

PageSetup.PrintTitleColumns プロパティで、タイトル列を設定すると、２ページ目移行にも設定したタイトル列が印刷されます。値の取得および設定が可能です。設定には文字列型（String）の値を使用します。

【書式】

＜取得＞
object.PageSetup.PrintTitleColumns

＜設定＞
object.PageSetup.PrintTitleColumns = string

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
string ・・・タイトル列を A1 形式の文字列で指定します。セル、セル範囲を指定した場合、該当するセルが含む列全体が選択されます。また、False または、空文字(“”) を指定するとタイトル列の設定は解除されます。

タイトル行・列を設定する例

サンプルVBAソース

　
Sub Sample_PrintTitle()


    Dim w As Worksheet
    Set w = ActiveSheet

    '行タイトルを設定「１行目から３行目」
    w.PageSetup.PrintTitleRows = "$1:$3"
    
    '列タイトルを設定「２列目」
    '※ セルを選択した場合、セルを含む列全体が選択されます
    w.PageSetup.PrintTitleColumns = "B2"
        

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

　

Sub Sample_PrintTitle()

Dim w As Worksheet

Set w = ActiveSheet

'行タイトルを設定「１行目から３行目」

w.PageSetup.PrintTitleRows = "$1:$3"

'列タイトルを設定「２列目」

'※ セルを選択した場合、セルを含む列全体が選択されます

w.PageSetup.PrintTitleColumns = "B2"

End Sub

　

実行結果

※ サンプルVBAソースを実行後に「ページ設定」の「シート」タブを確認

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

Tweet

Message コメントをキャンセル

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

関連記事

: 前後のワークシートを参照する（Previous プロパティ,Next プロパティ)

Previous プロパティ指定したシートの前（左側）のシートを参照します。 …

: 印刷時の改ページ設定（Add,ResetAllPageBreaks）

改ページの追加と解除印刷時に改ページを指定するには、HPageBreaks コ …

: 印刷設定（ヘッダー／フッター）書式コード・VBAコード

印刷設定（ヘッダー／フッター）書式コード・VBAコードヘッダーおよびフッター（ …

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

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

: 印刷時、シート内のエラーをどう扱うかを設定（PrintErrors プロパティ）

PageSetup.PrintErrors プロパティ PageSetup.Pr …

: 共有ファイルを開いているユーザー情報を取得（UserStatus プロパティ）

共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …

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

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

: ウィンドウ枠の固定（FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウ枠の固定と解除ウィンドウ枠を固定するには FreezePanes プ …

: ワークシートのコピー・移動（Copy メソッド Move メソッド）

Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …

: ウィンドウを拡大・縮小（Zoom プロパティ）

ウィンドウを拡大・縮小（Zoom プロパティ）ウィンドウの表示サイズをパーセン …

PREV: 印刷時のページの番号付けの方向を設定（PageSetup.Order プロパティ）
NEXT: 印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）