ExcelVBAで印刷位置をページの中央に設定する方法

構文

構文は以下の通りです。

With ActiveSheet.PageSetup
    .CenterHorizontally = True
    .CenterVertically = True
End With

解説

ActiveSheet.PageSetupを使うことで、シートのページ設定を行えます。CenterHorizontally = Trueは、ページ上で印刷物が水平（横）方向に中央に配置されるように設定します。CenterVertically = Trueは、ページ上で印刷物が垂直（縦）方向に中央に配置されるように設定します。

プログラミング例

具体的なプログラミング例を紹介します。

Sub 印刷位置を中央に設定()
    With ActiveSheet.PageSetup
        .CenterHorizontally = True
        .CenterVertically = True
    End With
End Sub

上記のプログラムを実行すると、現在アクティブなシートの印刷位置がページの中央に設定されます。CenterHorizontallyをTrueにすることで、印刷物がページの横方向で中央に配置され、CenterVerticallyをTrueにすることで、縦方向で中央に配置されます。この設定により、用紙の中央にデータが印刷されるため、見栄えが良くなります。

まとめ

印刷位置をページの中央に設定する方法は、PageSetupを使用して、CenterHorizontallyとCenterVerticallyをTrueに設定することです。これにより、印刷物が用紙の中央に配置され、プロフェッショナルな仕上がりになります。