VBA備忘録０６ - ページ設定のＶＢＡ

お仕事が下流工程に入っているので、ドキュメントの修正が多いのなんのって。

約２００近くあるＥｘｃleを修正するのに、手でやるのはさすがにメンドクサイ。

なのでマクロ活用！

ツール＞マクロ＞新しいマクロの記録　を実行後、
ファイル＞ページ設定で値を修正すると大まかなものは作成できます。
ご参考に。

Sub 印刷範囲ヘッダページ設定()

With ActiveSheet.PageSetup

'このシート名の時だけ実行
If ActiveSheet.Name = "Sheet1" Then

'ファイル＞ページ設定
.CenterHorizontally = True '余白＞水平(True:チェックを付ける)
.CenterVertically = False '余白＞垂直(False:チェックを外す)
.Zoom = 85 'ページ＞拡大/縮小(%)
.PrintTitleRows = "$1:$10" 'シート＞行のタイトル
.LeftMargin = Application.InchesToPoints(0) '余白＞左
.RightMargin = Application.InchesToPoints(0) '余白＞右
End if
End Sub

…でも200近くあるドキュメント修正が終わるのはいつまで続くんだ…(泪)

■環境

windows 2000 SP4

Excle2000