印刷位置を中央配置（水平・垂直方向）に設定する。

VBAで印刷する対象を中央に寄せた形で印刷できるように設定するにはPageSetupオブジェクトを利用して設定することができます。

中央配置の設定はCenterHorizontallyプロパティ（水平方向）とCenterVerticallyプロパティ（垂直方向）を利用して True または False を指定をします。
Trueを指定すると中央配置になります。

'******************************************************************
'　印刷設定の変更（中央配置）
'******************************************************************
Sub Main_PrintCenter()

    With Sheets("Sheet1")
        '印刷をページの水平方向に中央設定
        .PageSetup.CenterHorizontally = True
    
        '印刷をページの垂直方向で中央設定
        .PageSetup.CenterVertically = True
    
        'プレビューで確認
        .PrintPreview
    End With
    
End Sub

　■実行結果