教えてください!!!エクセル印刷時設定について→全シートをまとめて同じ印刷設定にする方法

お願いします!!!
エクセルの印刷設定について質問です。

ひとつのファイルの中に１０シートあるとします。その１０シート全部に同じ印刷設定をしたい場合はどのようにすればできるのでしょうか？
ヘッダーの編集、余白の設定、用紙サイズの縮小や拡大など、印刷時には沢山の設定をします。この１０シートを色んな形式で印刷したいので、毎回毎回一つ一つしないといけないので、月末の忙しいときでとても手間で時間が掛かります。シートをグループ化にしても、印刷設定は一気にできませんでした。絶対にどこかで設定ができるのだ、と色々試していますができなくて困っています。どなたかお分かりの方みえましたら、どうぞよろしくお願いします。

No.1 ベストアンサー 回答者： onntao 回答日時： 2005/09/28 13:29

ユーザー設定のビュー　印刷設定の保存を利用されてはいかがでしょう

参考URL：http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex …

この回答へのお礼

早々のご回答ありがとうございます。
試してみましたが・・・成功しました★
どうもありがとうございました。

お礼日時：2005/09/28 19:26

No.2 回答者： Selfishness 回答日時： 2005/09/28 13:57

マクロでよいなら、WorkBookにこんな感じで。

すごく重いです。１０ページあると大変な事になるかも・・・
あと、印刷（印刷プレビュー）する前は保存する事をお勧めします。

=================================================
Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = False
Dim S_idx As Integer
S_idx = 1
Do While (S_idx <= Sheets.Count)
With Sheets.Item(S_idx).PageSetup
.LeftHeader = Sheet1.PageSetup.LeftHeader
.RightHeader = Sheet1.PageSetup.RightHeader
.CenterHeader = Sheet1.PageSetup.CenterHeader
.LeftFooter = Sheet1.PageSetup.LeftFooter
.RightFooter = Sheet1.PageSetup.RightFooter
.CenterFooter = Sheet1.PageSetup.CenterFooter
.Orientation = Sheet1.PageSetup.Orientation
.LeftMargin = Sheet1.PageSetup.LeftMargin
.RightMargin = Sheet1.PageSetup.RightMargin
.TopMargin = Sheet1.PageSetup.TopMargin
.BottomMargin = Sheet1.PageSetup.BottomMargin
.HeaderMargin = Sheet1.PageSetup.HeaderMargin
.FooterMargin = Sheet1.PageSetup.FooterMargin
.PrintTitleRows = Sheet1.PageSetup.PrintTitleRows
.PrintTitleColumns = Sheet1.PageSetup.PrintTitleColumns
.PrintArea = Sheet1.PageSetup.PrintArea
.PrintHeadings = Sheet1.PageSetup.PrintHeadings
.PrintGridlines = Sheet1.PageSetup.PrintGridlines
.PrintComments = Sheet1.PageSetup.PrintComments
.PrintQuality = Sheet1.PageSetup.PrintQuality
.CenterHorizontally = Sheet1.PageSetup.CenterHorizontally
.CenterVertically = Sheet1.PageSetup.CenterVertically
.Draft = Sheet1.PageSetup.Draft
.PaperSize = Sheet1.PageSetup.PaperSize
.FirstPageNumber = Sheet1.PageSetup.FirstPageNumber
.Order = Sheet1.PageSetup.Order
.BlackAndWhite = Sheet1.PageSetup.BlackAndWhite
.Zoom = Sheet1.PageSetup.Zoom
End With
S_idx = S_idx + 1
Loop
End Sub
=================================================