shokosブログ

プログラミング

VBA印刷めも

シートの印刷枚数が2枚以上になる場合、1枚に収めてかつ中央寄せする処理

If Application.ExecuteExcel4Macro("get.document(50)") > 1 Then
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
        .CenterHorizontally = True
        .CenterVertically = True
    End With
End If