2010-08-19 VBA印刷めも 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