【ExcelVBA 印刷】行番号と列番号を印刷する方法について教えて！

構文

構文は以下の通りです。

Worksheet.PageSetup.PrintHeadings = True / False

解説

PrintHeadingsプロパティを使用することで、印刷時に見出し行や見出し列を自動的に印刷するかどうかを制御することができます。デフォルトでは、このプロパティはFalseに設定されており、見出し行や見出し列は印刷されません。PrintHeadingsプロパティは、True（印刷する）またはFalse（印刷しない）のいずれかの値を取ります。

使い方

PrintHeadingsプロパティをTrueに設定すると、印刷時に見出し行や見出し列が自動的に印刷されます。例えば、以下のように設定します。

Sub SetPrintHeadings()
    Worksheets("Sheet1").PageSetup.PrintHeadings = True
End Sub

上記の例では、"Sheet1"という名前のワークシートのPrintHeadingsプロパティをTrueに設定しています。

プログラミング例

以下のプログラム例では、PrintHeadingsプロパティを使用して、ワークシートの印刷時に見出し行と見出し列を印刷するかどうかを切り替える方法を示します。

Sub TogglePrintHeadings()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    If ws.PageSetup.PrintHeadings = True Then
        ws.PageSetup.PrintHeadings = False
    Else
        ws.PageSetup.PrintHeadings = True
    End If
End Sub

上記の例では、"Sheet1"という名前のワークシートのPrintHeadingsプロパティの現在の設定を確認し、TrueならFalseに、FalseならTrueに切り替えています。

まとめ

PageSetup.PrintHeadingsプロパティを使用すると、印刷時に見出し行や見出し列を制御することができます。設定を変更するには、WorksheetオブジェクトのPrintHeadingsプロパティにTrueまたはFalseの値を代入することで行います。デフォルトではFalseに設定されているため、見出し行や見出し列は印刷されません。