- ベストアンサー
教えてください!!!エクセル印刷時設定について→全シートをまとめて同じ印刷設定にする方法
お願いします!!! エクセルの印刷設定について質問です。 ひとつのファイルの中に10シートあるとします。その10シート全部に同じ印刷設定をしたい場合はどのようにすればできるのでしょうか? ヘッダーの編集、余白の設定、用紙サイズの縮小や拡大など、印刷時には沢山の設定をします。この10シートを色んな形式で印刷したいので、毎回毎回一つ一つしないといけないので、月末の忙しいときでとても手間で時間が掛かります。シートをグループ化にしても、印刷設定は一気にできませんでした。絶対にどこかで設定ができるのだ、と色々試していますができなくて困っています。どなたかお分かりの方みえましたら、どうぞよろしくお願いします。
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
ユーザー設定のビュー 印刷設定の保存を利用されてはいかがでしょう
その他の回答 (1)
- Selfishness
- ベストアンサー率29% (29/99)
マクロでよいなら、WorkBookにこんな感じで。 すごく重いです。10ページあると大変な事になるかも・・・ あと、印刷(印刷プレビュー)する前は保存する事をお勧めします。 ================================================= 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 =================================================
お礼
早々のご回答ありがとうございます。 試してみましたが・・・成功しました★ どうもありがとうございました。