Excelの印刷設定に関してやってみたいこと

質問

Excel2003で、印刷設定に関して次のようなことを、マクロか何かであっという間に実現できないかと考えています。いつも、手作業で何度も試行錯誤しながらやっているのが、もっと即座にできないかと思っているのですが、良い方法はないでしょうか。
(1)印刷設定を「縦◯ページ×横◯ページ」にした時の印刷倍率って、100%より大きくはなってくれませんよね。それを、115%とか印刷可能なギリギリまで拡大した倍率を求め設定したい。
(2)印刷倍率は「100%」に決めて動かさないようにしたいとします。そこでB列(別にどの列でもいいですが)の幅を広げていったとき、横１ページに収まって印刷されてくれるギリギリの列幅を求めたい。

回答No.1

keithin

適切に自力で応用してください。

sub macro1()
　dim z as integer
　with activesheet
　.resetallpagebreaks
　.pagesetup.zoom = false

　for z = 10 to 400
　　.pagesetup.zoom = z
　　if application.executeexcel4macro("GET.DOCUMENT(50)") > 1 then exit for
　next z
　.pagesetup.zoom = z - 1
　end with

　activesheet.printpreview
end sub

sub macro2()
　do until application.executeexcel4macro("GET.DOCUMENT(50)") > 1
　columns("B").columnwidth = columns("B").columnwidth + 1
　loop
　columns("B").columnwidth = columns("B").columnwidth - 1
end sub

お礼

Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
というのは初めて見ました。調べてみましたが有用ですね。ありがとうございました。