shokosブログ

プログラミング

2010-08-19から1日間の記事一覧

VBA印刷めも

VBA

シートの印刷枚数が2枚以上になる場合、1枚に収めてかつ中央寄せする処理 If Application.ExecuteExcel4Macro("get.document(50)") > 1 Then With ActiveSheet.PageSetup .Zoom = False .FitToPagesTall = 1 .FitToPagesWide = 1 .CenterHorizontally = Tr…