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

サイト管理人

9年前

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

Sub Sample_PrintTitle()

Dim w As Worksheet

Set w = ActiveSheet

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

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

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

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

w.PageSetup.PrintTitleColumns = "B2"

End Sub

実行結果

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