エクセル2002で全シートの余白を一度に替える方法ありますか？

質問

エクセル2000から、エクセル2002にしたせいか、
プリンタドライバがいけないのか、私だけなぜか
印刷すると左端10cmぐらいだけが同じデータが
印刷され紙の無駄状態です。（T_T）
もちろんプレビューでも本来1頁のはずが2頁表示されます。余白を2cmから0.5cm狭めるとプレビューで1頁になるのですが
全てのドキュメントをシート毎に変えないといけないので大変な作業になります。一括で余白を変更する
事は可能なのでしょうか？

回答No.1

TKO-T2 · ベストアンサー

こんばんは。

すべてのドキュメントを変更するのであれば
シートを全て選択して余白を変えれば良いですよ。
全て選択する方法としては

Sheet1を選んだ状態で、
Ctrlキーを押しながら、次々と他のシートを選べば良いです。
全部まとめて選択したいのであれば、
Sheet1などシート名のところで右クリックを押して
[すべてのシートを選択]
を選んでから、余白を変更してください。

お礼

とりあえず頻度は２０回程度だったので、こちらの方法を実践しできました。（＾＾）ありがとうございます。

回答No.2

imogasi

VBAで
Sub test01()
Dim sh As Worksheet
For Each sh In Worksheets
MsgBox sh.Name
With sh.PageSetup
.LeftMargin = Application.InchesToPoints(0.2)
End With
Next
End Sub
を実行すると、全シートの左余白を一定に出きると思います。
上記shが各ワークシートを表しますが、ページ設定はワークシート単位でしか出来ないと思いますので、ワークシートごとに設定せねばなりません。
その方法として＃１のご回答のようにするか、本件のように手作業操作に当たるものを自動化するかだと思います。
ブックのワークシート全体を規制する設定とワークシート
ごとを規制する設定とがあると思いますが、両者を明確に論じた解説書を見たことがないのですが。
即ちブック単位でページ設定は出来ないでしょう。
（注）実行方法は、
（１）ツール－マクロ－ＶＢＥ。
（２）挿入－標準モジュールで、上記をコピーして画面に貼りつけ。プログラム中ほどをクリック。
（３）実行。

お礼

マクロというとVBできないから敬遠していましたが、シンプルに書いていただきありがとうございます。
手作業ですまない仕事が発生したらできるエクセル技だけで苦労しないでVBAを勉強した方が良さそうだなと感じました。ありがとうございます。（＾＾）