エクセルのページ設定

質問

エクセルの「印刷プレビュー」→「ページ設定」で、自分独自の設定をデフォルトにすることができるでしょうか。
たとえば「ページ」タブの「拡大縮小印刷」では、「次のページ数に合わせて印刷」「横１×縦 」で印刷する事が多いのでそれをデフォルトにしたいのですが。

回答No.3

Wendy02 · ベストアンサー

こんばんは。

>「XlStart 側」の言葉の意味を理解していませんが、たぶん意図した設定済みのExcelを使うのだと理解しました。

「XlStart 側」とは
C:\Documents and Settings\[User ID]\Application Data\Microsoft\Excel\XLSTART\

のことです。Vistaでは、少し場所が違いますが、Application以降は同じです。

しかし、
>他の人が送ってきた（作成した）Excelファイルを印刷するときに、いつも自分流に設定してから印刷しているので時間を節約できないかと考えての質問でした。

ということですと、既存のシートに印刷設定するのと、こちらが想定した新たなシートに設定するコードとは内容的に違います。PERSONAL.XLS の標準モジュールに以下のようなマクロを置いて、ユーザー設定でコマンドボタンを付けてあげればよいだけです。

定数のところは、ユーザー設定です。

'標準モジュール

Private Const W As Integer = 1　'横
Private Const T As Integer = 2　'縦
Sub PrinterSetting()
　On Error GoTo ErrHandler
　　With ActiveSheet.PageSetup
　　　　.Zoom = False
　　　　.FitToPagesWide = W
　　　　.FitToPagesTall = T
　　End With
　　Exit Sub
ErrHandler:
　　MsgBox Err.Description
End Sub

お礼

期待していたイメージのお答えありがとうございました。大変感謝申し上げます。

回答No.2

Wendy02

こんばんは。

一回きりなら、XlStart 側に、テンプレートでも置いてあげればよいと思います。

しかし、新規のファイルまで適用するとなれば、アプリケーションのインスタンスを設けてあげればよいと思います。

以下のようなマクロのコードで、新規ブックや新規シートを設けたときにだけ、デフォルトの状態で、縦横の比率が変わります。今までのブックに対しては変更されません。

個人用マクロブック（PERSONAL.XLS) に以下のようなコードを入れてあげます。

'*標準モジュール

Public myClass As Class1
Sub Auto_Open()
　Set myClass = New Class1
　Set myClass.xlApp = Application
End Sub

'**クラスモジュール
Public WithEvents xlApp As Application
Private Const W As Integer = 1　'横
Private Const T As Integer = 2　'縦
Private Sub xlApp_NewWorkbook(ByVal Wb As Workbook)
　　Dim Sh As Worksheet
　　On Error GoTo ErrHandler
　　With Wb
　　　　For Each Sh In Wb.Worksheets
　　　　　　With Sh.PageSetup
　　　　　　　　.Zoom = False
　　　　　　　　.FitToPagesWide = W
　　　　　　　　.FitToPagesTall = T
　　　　　　End With
　　　　Next Sh
　　End With
　　Exit Sub
ErrHandler:
　　MsgBox Err.Description
End Sub

Private Sub xlApp_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)
　　On Error GoTo ErrHandler
　　With Sh.PageSetup
　　　　.Zoom = False
　　　　.FitToPagesWide = W
　　　　.FitToPagesTall = T
　　End With
　　Exit Sub
ErrHandler:
　　MsgBox Err.Description
End Sub

お礼

「XlStart 側」の言葉の意味を理解していませんが、たぶん意図した設定済みのExcelを使うのだと理解しました。
「個人用マクロブック（PERSONAL.XLS) 」についてはとても難しそうなので、ゆっくり勉強してから挑戦してみたいと思います。
もともと他の人が送ってきた（作成した）Excelファイルを印刷するときに、いつも自分流に設定してから印刷しているので時間を節約できないかと考えての質問でした。
ともかく詳しい回答を頂き有り難うございました。

回答No.1

hayasi456

印刷設定は難しいでしょうけど
ご希望の設定をしたエクセル　ファイルのデータを総て消し「デフォルト」でも名前を付け保存してはどうでしょう。
新規作成する時にそのファイルから作成すればよいわけです。

お礼

確かに自分で作成するときはおっしゃる通りだと思いますので参考になりました。ただ他人が作ったエクセルを印刷するとき、人それぞれの作り方、あるいは印刷を考えない作り方をする人が多いので、とても手間がかかって困っています。簡単に決まった印刷設定をするのはやはり難しいのでしょうか。